]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/matita/contribs/LAMBDA-TYPES/LambdaDelta-1/nf2/fwd.ma
Some more painful work.
[helm.git] / helm / software / matita / contribs / LAMBDA-TYPES / LambdaDelta-1 / nf2 / fwd.ma
index 5b705dbba1b5acac07967ea218d4800bb084e9d6..e212a16dbf8cddf60882ca9512ab8d9f02d88db2 100644 (file)
 
 (* This file was automatically generated: do not edit *********************)
 
-set "baseuri" "cic:/matita/LAMBDA-TYPES/LambdaDelta-1/nf2/fwd".
+include "LambdaDelta-1/nf2/defs.ma".
 
-include "nf2/defs.ma".
+include "LambdaDelta-1/pr2/clen.ma".
 
-include "pr2/clen.ma".
+include "LambdaDelta-1/subst0/dec.ma".
 
-include "subst0/dec.ma".
-
-include "T/props.ma".
+include "LambdaDelta-1/T/props.ma".
 
 theorem nf2_gen_lref:
  \forall (c: C).(\forall (d: C).(\forall (u: T).(\forall (i: nat).((getl i c 
@@ -64,8 +62,7 @@ t)) \to (\forall (P: Prop).P))))
 \def
  \lambda (c: C).(\lambda (u: T).(\lambda (t: T).(\lambda (H: (nf2 c (THead 
 (Flat Cast) u t))).(\lambda (P: Prop).(thead_x_y_y (Flat Cast) u t (H t 
-(pr2_free c (THead (Flat Cast) u t) t (pr0_epsilon t t (pr0_refl t) u))) 
-P))))).
+(pr2_free c (THead (Flat Cast) u t) t (pr0_tau t t (pr0_refl t) u))) P))))).
 
 theorem nf2_gen_beta:
  \forall (c: C).(\forall (u: T).(\forall (v: T).(\forall (t: T).((nf2 c 
@@ -194,5 +191,6 @@ theorem nf2_gen_void:
 T).((pr2 c (THead (Bind Void) u (lift (S O) O t)) t2) \to (eq T (THead (Bind 
 Void) u (lift (S O) O t)) t2))))).(\lambda (P: Prop).(nf2_gen__nf2_gen_aux 
 Void t u O (H t (pr2_free c (THead (Bind Void) u (lift (S O) O t)) t 
-(pr0_zeta Void not_void_abst t t (pr0_refl t) u))) P))))).
+(pr0_zeta Void (sym_not_eq B Abst Void not_abst_void) t t (pr0_refl t) u))) 
+P))))).