]> matita.cs.unibo.it Git - helm.git/blob - helm/gTopLevel/tests/match04.cic.test
regression tests
[helm.git] / helm / gTopLevel / tests / match04.cic.test
1 [\lambda x:nat. nat]
2 match O:nat with
3 [ O \Rightarrow O
4 | (S x) \Rightarrow (S (S x)) ]
5 ### (* METASENV after disambiguation  *)
6
7 ### (* TERM after disambiguation      *)
8
9 <[x:nat]nat>Cases O of 
10  O => O
11  S => [x:nat](S (S x))
12 end
13 ### (* TYPE_OF the disambiguated term *)
14 ([x:nat]nat O)
15 ### (* REDUCED disambiguated term     *)
16 O