]> matita.cs.unibo.it Git - helm.git/blob - gTopLevel/tests/match04.cic
made executable again
[helm.git] / 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)) ]