]> matita.cs.unibo.it Git - helm.git/blob - helm/gTopLevel/tests/match04.cic
* split evil let definition (ic, oc) = ... into two subsequent
[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)) ]