X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FgTopLevel%2Fesempi%2Fprova.cic;fp=helm%2FgTopLevel%2Fesempi%2Fprova.cic;h=0000000000000000000000000000000000000000;hb=c7514aaa249a96c5fdd39b1123fbdb38d92f20b6;hp=3f65458d25847666c6f2f96e2ae72383b6266de3;hpb=1c7fb836e2af4f2f3d18afd0396701f2094265ff;p=helm.git

diff --git a/helm/gTopLevel/esempi/prova.cic b/helm/gTopLevel/esempi/prova.cic
deleted file mode 100644
index 3f65458d2..000000000
--- a/helm/gTopLevel/esempi/prova.cic
+++ /dev/null
@@ -1,16 +0,0 @@
-alias eq   /Coq/Init/Logic/eq.ind#1/1
-alias nat  /Coq/Init/Datatypes/nat.ind#1/1
-alias O    /Coq/Init/Datatypes/nat.ind#1/1/1
-alias S    /Coq/Init/Datatypes/nat.ind#1/1/2
-alias plus /Coq/Init/Peano/plus.con
-alias mult /Coq/Init/Peano/mult.con
-(mult (plus (S (S O)) (S O)) (S (S O)))
-Case ((S O) : nat ; nat) { O ; \x:nat.x }
-Fix f {f(0) : !x:nat.nat ; g(0) : !x:nat.nat}
- { \x:nat.O
- ; \x:nat.
-    Case (x : nat ; nat) { (S O) ; \x:nat.(f x) }
- }
-
-(* Nel caso seguente sbagliavamo a fare la whd!!!! *)
-!n:nat.(eq nat O (Case (n : nat ; \z:nat.!a:nat.nat) {\x:nat.x ; \y:nat.\x:nat.x} O))