X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=helm%2FgTopLevel%2Ftests%2Fmatch00.cic.test;fp=helm%2FgTopLevel%2Ftests%2Fmatch00.cic.test;h=0000000000000000000000000000000000000000;hp=b2de9dbd117d276058e23800302d00672257dc80;hb=1696761e4b8576e8ed81caa905fd108717019226;hpb=5325734bc2e4927ed7ec146e35a6f0f2b49f50c1 diff --git a/helm/gTopLevel/tests/match00.cic.test b/helm/gTopLevel/tests/match00.cic.test deleted file mode 100644 index b2de9dbd1..000000000 --- a/helm/gTopLevel/tests/match00.cic.test +++ /dev/null @@ -1,33 +0,0 @@ -[\lambda x:nat. - [\lambda y:nat. Set] - match x:nat with [ O \Rightarrow nat | (S x) \Rightarrow bool ]] -match (S O):nat with -[ O \Rightarrow O -| (S x) \Rightarrow false ] -###### INTERPRETATION NUMBER 1 ###### -### (* disambiguation environment *) -alias id O = cic:/Coq/Init/Datatypes/nat.ind#1/1/1 -alias id S = cic:/Coq/Init/Datatypes/nat.ind#1/1/2 -alias id bool = cic:/Coq/Init/Datatypes/bool.ind#1/1 -alias id false = cic:/Coq/Init/Datatypes/bool.ind#1/1/2 -alias id nat = cic:/Coq/Init/Datatypes/nat.ind#1/1 -### (* METASENV after disambiguation *) - -### (* TERM after disambiguation *) - -<[x:nat] -<[y:nat]Set>Cases x of - O => nat - S => [x:nat]bool -end>Cases (S O) of - O => O - S => [x:nat]false -end -### (* TYPE_OF the disambiguated term *) -([x:nat] -<[y:nat]Set>Cases x of - O => nat - S => [x:nat]bool -end (S O)) -### (* REDUCED disambiguated term *) -false