Unified: flat contexts added
--- /dev/null
+(**************************************************************************)
+(* ___ *)
+(* ||M|| *)
+(* ||A|| A project by Andrea Asperti *)
+(* ||T|| *)
+(* ||I|| Developers: *)
+(* ||T|| The HELM team. *)
+(* ||A|| http://helm.cs.unibo.it *)
+(* \ / *)
+(* \ / This file is distributed under the terms of the *)
+(* v GNU General Public License Version 2 *)
+(* *)
+(**************************************************************************)
+
+set "baseuri" "cic:/matita/LAMBDA-TYPES/Unified/C/defs".
+
+(* FLAT CONTEXTS
+ - Naming policy:
+ - contexts: c d
+*)
+
+include "P/defs.ma".
+
+inductive C: Set \def
+ | top : C
+ | entry: C \to Bind \to P \to C
+.
(* *)
(**************************************************************************)
-set "baseuri" "cic:/matita/test/".
+set "baseuri" "cic:/matita/tests".
include "nat/nat.ma".
theorem pippo: \forall (P,Q,R:nat \to Prop).
\forall x,y. x=y \to P x \to Q x \to R x.
intros. rewrite > H in y.
-*)
\ No newline at end of file
+*)