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