{-#选项--立方#-}打开导入立方体。核心。一切打开导入立方体。基金会。前奏曲打开导入数据。自然隐藏（_+_）_+_ : ℕ → ℕ → ℕ零+n=nsuc m+n=suc（m+n）协会：（l m n：ℕ) → l+（m+n）≡（l+m）+n关联零m n=refassoc（suc l）m n=刚果suc（assoc l m n）关联：（l m n：ℕ) → l+（m+n）≡（l+m）+nassoc'零m n i=m+nassoc'（suc l）m n i=suc（assoc'l m n i）记录流（A:Set）：Set where共同生产的领域硬盘：Atl：流Aopen Stream公共发件人：ℕ → 流ℕhd（来自n）=ntl（来自n）=来自（例如n）mapStream:{AB:Set（映射流）}→ （A）→ B）→ 流A→ B流hd（mapStream f xs）=f（hd xs）tl（mapStream f xs）=映射流f（tl xs）--mapStream suc（来自0）--从1开始rfl:{A:Set}{A:A}→ a≡arfl{A}{A}i=A主题词：（n：ℕ) → mapStream suc（from n）≡from（suc n）hd（thmni）=成功tl（thmni）=thm（例如n）i模块{A:Set}，其中转换'：{abc:a}→ a≡b→ b≡c→ a≡ctrans’｛a｝p q i=hcomp（λj→ λ{（i=i0）→ 一;（i=i1）→ qj}）（pi）f1页：ℕ → ℕf1 x=xf2（频率）：ℕ → ℕx=x+0f-thm:f1≡f2f-thmi零=零f-thmi（sucn）=suc（f-thmin）--hcomp公司--运输--从transp导出J；不满足降价要求--替代方法：归纳定义的等式的行为与以前一样--满足约简。--与传统agda相比，保守。--具有uip+fibrant级别的2级系统严格级别--间隔是严格意义上的。--单价：抽象数据类型--胶水