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