]> matita.cs.unibo.it Git - helm.git/blob - helm/gTopLevel/tests/match02.cic
projects / helm.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
ocaml 3.09 transition
[helm.git] / helm / gTopLevel / tests / match02.cic
1 [\lambda z:nat. \lambda h:(le 0 z). (le 0 (S z))]
2 match (le_S 0 0 (le_n 0)): le with
3 [ le_n \Rightarrow (le_S 0 0 (le_n 0))
4 | (le_S x y) \Rightarrow (le_S 0 (S x) (le_S 0 x y)) ]
Unnamed repository; edit this file 'description' to name the repository.