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