]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/gTopLevel/tests/match00.cic.test
This commit was manufactured by cvs2svn to create branch 'moogle'.
[helm.git] / helm / gTopLevel / tests / match00.cic.test
diff --git a/helm/gTopLevel/tests/match00.cic.test b/helm/gTopLevel/tests/match00.cic.test
deleted file mode 100644 (file)
index b2de9db..0000000
+++ /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