]> matita.cs.unibo.it Git - helm.git/blob - helm/gTopLevel/tests/match03.cic.test
ocaml 3.09 transition
[helm.git] / helm / gTopLevel / tests / match03.cic.test
1 [\lambda x:bool. nat]
2 match true:bool with
3 [ true \Rightarrow O
4 | false \Rightarrow (S O) ]
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 bool = cic:/Coq/Init/Datatypes/bool.ind#xpointer(1/1)
10 alias id nat = cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1)
11 alias id true = cic:/Coq/Init/Datatypes/bool.ind#xpointer(1/1/1)
12 ### (* METASENV after disambiguation  *)
13
14 ### (* TERM after disambiguation      *)
15
16 <[x:bool]nat>Cases true of 
17  true => O
18  false => (S O)
19 end
20 ### (* TYPE_OF the disambiguated term *)
21 ([x:bool]nat true)
22 ### (* REDUCED disambiguated term     *)
23 O