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