equal
deleted
inserted
replaced
55 PROJ "i: nat ==> PROJ(i) : primrec" |
55 PROJ "i: nat ==> PROJ(i) : primrec" |
56 COMP "[| g: primrec; fs: list(primrec) |] ==> COMP(g,fs): primrec" |
56 COMP "[| g: primrec; fs: list(primrec) |] ==> COMP(g,fs): primrec" |
57 PREC "[| f: primrec; g: primrec |] ==> PREC(f,g): primrec" |
57 PREC "[| f: primrec; g: primrec |] ==> PREC(f,g): primrec" |
58 monos "[list_mono]" |
58 monos "[list_mono]" |
59 con_defs "[SC_def,CONST_def,PROJ_def,COMP_def,PREC_def]" |
59 con_defs "[SC_def,CONST_def,PROJ_def,COMP_def,PREC_def]" |
60 type_intrs "nat_typechecks @ list. intrs @ |
60 type_intrs "nat_typechecks @ list.intrs @ |
61 [lam_type, list_case_type, drop_type, map_type, |
61 [lam_type, list_case_type, drop_type, map_type, |
62 apply_type, rec_type]" |
62 apply_type, rec_type]" |
63 |
63 |
64 end |
64 end |