X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=helm%2FgTopLevel%2Ftests%2Ffix00.cic.test;fp=helm%2FgTopLevel%2Ftests%2Ffix00.cic.test;h=0000000000000000000000000000000000000000;hp=8719cbed32ebf6bbcbcb9cdb08422d3f06c70595;hb=1696761e4b8576e8ed81caa905fd108717019226;hpb=5325734bc2e4927ed7ec146e35a6f0f2b49f50c1

diff --git a/helm/gTopLevel/tests/fix00.cic.test b/helm/gTopLevel/tests/fix00.cic.test
deleted file mode 100644
index 8719cbed3..000000000
--- a/helm/gTopLevel/tests/fix00.cic.test
+++ /dev/null
@@ -1,222 +0,0 @@
-let rec fact =
-  \lambda x:nat.
-    [\lambda x:nat. nat]
-    match x:nat with
-    [ O \Rightarrow 1
-    | (S (x: nat)) \Rightarrow (mult (S x) (fact x)) ]
-in
-(fact 4)
-###### INTERPRETATION NUMBER 1 ######
-### (* disambiguation environment  *)
-alias id S = cic:/Coq/Init/Datatypes/nat.ind#1/1/2
-alias id mult = cic:/Coq/Init/Peano/mult.con
-alias id nat = cic:/Coq/Init/Datatypes/nat.ind#1/1
-alias num (instance 0) = "natural number"
-### (* METASENV after disambiguation  *)
-
-### (* TERM after disambiguation      *)
-[fact:=
-Fix fact {
-fact / 0 : (nat->nat) := 
-[x:nat]
-<[x:nat]nat>Cases x of 
- O => (S O)
- S => [x:nat](mult (S x) (fact x))
-end}
-](fact (S (S (S (S O)))))
-### (* TYPE_OF the disambiguated term *)
-nat
-### (* REDUCED disambiguated term     *)
-(S (
-Fix plus {
-plus / 0 : (n:nat)(m:nat)nat := 
-[n:nat][m:nat]
-<[n0:nat]nat>Cases n of 
- O => m
- S => [p:nat](S (plus p m))
-end}
- (S (
-Fix plus {
-plus / 0 : (n:nat)(m:nat)nat := 
-[n:nat][m:nat]
-<[n0:nat]nat>Cases n of 
- O => m
- S => [p:nat](S (plus p m))
-end}
- O (S (
-Fix plus {
-plus / 0 : (n:nat)(m:nat)nat := 
-[n:nat][m:nat]
-<[n0:nat]nat>Cases n of 
- O => m
- S => [p:nat](S (plus p m))
-end}
- (S (
-Fix plus {
-plus / 0 : (n:nat)(m:nat)nat := 
-[n:nat][m:nat]
-<[n0:nat]nat>Cases n of 
- O => m
- S => [p:nat](S (plus p m))
-end}
- O O)) (S (
-Fix plus {
-plus / 0 : (n:nat)(m:nat)nat := 
-[n:nat][m:nat]
-<[n0:nat]nat>Cases n of 
- O => m
- S => [p:nat](S (plus p m))
-end}
- (S (
-Fix plus {
-plus / 0 : (n:nat)(m:nat)nat := 
-[n:nat][m:nat]
-<[n0:nat]nat>Cases n of 
- O => m
- S => [p:nat](S (plus p m))
-end}
- O O)) O)))))) (S (
-Fix plus {
-plus / 0 : (n:nat)(m:nat)nat := 
-[n:nat][m:nat]
-<[n0:nat]nat>Cases n of 
- O => m
- S => [p:nat](S (plus p m))
-end}
- (S (
-Fix plus {
-plus / 0 : (n:nat)(m:nat)nat := 
-[n:nat][m:nat]
-<[n0:nat]nat>Cases n of 
- O => m
- S => [p:nat](S (plus p m))
-end}
- O (S (
-Fix plus {
-plus / 0 : (n:nat)(m:nat)nat := 
-[n:nat][m:nat]
-<[n0:nat]nat>Cases n of 
- O => m
- S => [p:nat](S (plus p m))
-end}
- (S (
-Fix plus {
-plus / 0 : (n:nat)(m:nat)nat := 
-[n:nat][m:nat]
-<[n0:nat]nat>Cases n of 
- O => m
- S => [p:nat](S (plus p m))
-end}
- O O)) (S (
-Fix plus {
-plus / 0 : (n:nat)(m:nat)nat := 
-[n:nat][m:nat]
-<[n0:nat]nat>Cases n of 
- O => m
- S => [p:nat](S (plus p m))
-end}
- (S (
-Fix plus {
-plus / 0 : (n:nat)(m:nat)nat := 
-[n:nat][m:nat]
-<[n0:nat]nat>Cases n of 
- O => m
- S => [p:nat](S (plus p m))
-end}
- O O)) O)))))) (S (
-Fix plus {
-plus / 0 : (n:nat)(m:nat)nat := 
-[n:nat][m:nat]
-<[n0:nat]nat>Cases n of 
- O => m
- S => [p:nat](S (plus p m))
-end}
- (S (
-Fix plus {
-plus / 0 : (n:nat)(m:nat)nat := 
-[n:nat][m:nat]
-<[n0:nat]nat>Cases n of 
- O => m
- S => [p:nat](S (plus p m))
-end}
- O (S (
-Fix plus {
-plus / 0 : (n:nat)(m:nat)nat := 
-[n:nat][m:nat]
-<[n0:nat]nat>Cases n of 
- O => m
- S => [p:nat](S (plus p m))
-end}
- (S (
-Fix plus {
-plus / 0 : (n:nat)(m:nat)nat := 
-[n:nat][m:nat]
-<[n0:nat]nat>Cases n of 
- O => m
- S => [p:nat](S (plus p m))
-end}
- O O)) (S (
-Fix plus {
-plus / 0 : (n:nat)(m:nat)nat := 
-[n:nat][m:nat]
-<[n0:nat]nat>Cases n of 
- O => m
- S => [p:nat](S (plus p m))
-end}
- (S (
-Fix plus {
-plus / 0 : (n:nat)(m:nat)nat := 
-[n:nat][m:nat]
-<[n0:nat]nat>Cases n of 
- O => m
- S => [p:nat](S (plus p m))
-end}
- O O)) O)))))) (S (
-Fix plus {
-plus / 0 : (n:nat)(m:nat)nat := 
-[n:nat][m:nat]
-<[n0:nat]nat>Cases n of 
- O => m
- S => [p:nat](S (plus p m))
-end}
- (S (
-Fix plus {
-plus / 0 : (n:nat)(m:nat)nat := 
-[n:nat][m:nat]
-<[n0:nat]nat>Cases n of 
- O => m
- S => [p:nat](S (plus p m))
-end}
- O (S (
-Fix plus {
-plus / 0 : (n:nat)(m:nat)nat := 
-[n:nat][m:nat]
-<[n0:nat]nat>Cases n of 
- O => m
- S => [p:nat](S (plus p m))
-end}
- (S (
-Fix plus {
-plus / 0 : (n:nat)(m:nat)nat := 
-[n:nat][m:nat]
-<[n0:nat]nat>Cases n of 
- O => m
- S => [p:nat](S (plus p m))
-end}
- O O)) (S (
-Fix plus {
-plus / 0 : (n:nat)(m:nat)nat := 
-[n:nat][m:nat]
-<[n0:nat]nat>Cases n of 
- O => m
- S => [p:nat](S (plus p m))
-end}
- (S (
-Fix plus {
-plus / 0 : (n:nat)(m:nat)nat := 
-[n:nat][m:nat]
-<[n0:nat]nat>Cases n of 
- O => m
- S => [p:nat](S (plus p m))
-end}
- O O)) O)))))) O))))))))