summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
142e372)
Signed-off-by: Jim Pryor <profjim@jimpryor.net>
let add = << fun m n -> n $succ$ m >>;;
(* or *)
let add = << fun m n -> fun s z -> m s (n s z) >>;;
let add = << fun m n -> n $succ$ m >>;;
(* or *)
let add = << fun m n -> fun s z -> m s (n s z) >>;;
(* now use:
pp FORMULA to print a formula, unreduced
pn FORMULA to print the normal form of a formula (when possible)
pi FORMULA to print the integer which FORMULA is a Church numeral for (when possible)
(* now use:
pp FORMULA to print a formula, unreduced
pn FORMULA to print the normal form of a formula (when possible)
pi FORMULA to print the integer which FORMULA is a Church numeral for (when possible)
alpha_eq FORM1 FORM2 are FORM1 and FORM2 syntactically equivalent (up to alpha-conversion)?
this does not do reductions on the formulae
*)
alpha_eq FORM1 FORM2 are FORM1 and FORM2 syntactically equivalent (up to alpha-conversion)?
this does not do reductions on the formulae
*)
pi << $add$ $one$ $two$ >>;;
- : int = 3
pi << $add$ $one$ $two$ >>;;
- : int = 3