- renamed ocaml/ to components/

[helm.git] / helm / matita / tests / interactive / grafite.ma

diff --git a/helm/matita/tests/interactive/grafite.ma b/helm/matita/tests/interactive/grafite.ma
deleted file mode 100644 (file)
index aaf5700..0000000
--- a/helm/matita/tests/interactive/grafite.ma
+++ /dev/null
@@ -1,34 +0,0 @@
-set "baseuri" "cic:/matita/tests/grafite/".
-
-(* commento *)
-(** hint. *)
-
-inductive pippo : Type \def
-  | a : Type \to pippo
-  | b : Prop \to pippo
-  | c : Set \to pippo.
-
-definition pollo : Set \to Set \def
-  \lambda a:Set.a.
-
-inductive paolo : Prop \def t:paolo.
-
-theorem comeno : \forall p:pippo.pippo.
-intros.assumption.
-qed.
-
-definition f : pippo \to paolo \def
-  \lambda x:pippo.
-  match x with 
-  [ (a z) \Rightarrow t
-  | (b z) \Rightarrow t
-  | (c z) \Rightarrow t ].
-
-record w : Type \def {
-  mario : Prop;
-  pippo : Set
-}.
-
-whelp locate pippo.
-
-print "coercions".