]> matita.cs.unibo.it Git - helm.git/blob - helm/gTopLevel/tests/match04.cic
snapshot
[helm.git] / helm / gTopLevel / tests / match04.cic
1 [\lambda x:nat. nat]
2 match O:nat with
3 [ O \Rightarrow O
4 | (S x) \Rightarrow (S (S x)) ]