]> matita.cs.unibo.it Git - helm.git/blob - helm/gTopLevel/tests/match04.cic.test
Added a new section on automation
[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 ###### INTERPRETATION NUMBER 1 ######
6 ### (* disambiguation environment  *)
7 alias id O = cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1/1)
8 alias id S = cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1/2)
9 alias id nat = cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1)
10 ### (* METASENV after disambiguation  *)
11
12 ### (* TERM after disambiguation      *)
13
14 <[x:nat]nat>Cases O of 
15  O => O
16  S => [x:nat](S (S x))
17 end
18 ### (* TYPE_OF the disambiguated term *)
19 ([x:nat]nat O)
20 ### (* REDUCED disambiguated term     *)
21 O