headtail2n62归纳和余归纳余归纳定义的数据和函数的性质.PPTVIP

* * * * * * * * * * * * * * * * * * * * * * * 6.3 递 归 类 型 自然数类型的递归定义 nat ? unit+(unit+(unit+(unit+(unit+…+nat)…))) 自然数0和1的定义如下 ?0? ? fold(Inleft?) ?1? ? fold(Inright fold(Inleft?)) 对任何自然数n ? 0，可以类似地定义如下 ?n?? fold(Inright fold(Inright…fold(Inleft?)…)) 后继函数正好使用fold和Inright： succ ? ?x:nat. fold(Inright x) 6.3 递 归 类 型 自然数表的类型 list ? unit + (nat ? list) list ? ? t.unit + (nat ? t) nil ? fold(Inleft ?) cons x l ? fold(Inright ?x, l?) 根据表的形式进行分支的函数listcase定义如下 listcase? ?x:list.?y:?.?f:list??. Caseunit, list, ?(unfold x) (?w:uni