(* This file was automatically generated: do not edit *********************)
-include "LambdaDelta-1/cimp/defs.ma".
+include "Basic-1/cimp/defs.ma".
-include "LambdaDelta-1/getl/getl.ma".
+include "Basic-1/getl/getl.ma".
theorem cimp_flat_sx:
\forall (f: F).(\forall (c: C).(\forall (v: T).(cimp (CHead c (Flat f) v)
b) w))))))).(\lambda (H0: (getl (S h0) (CHead c (Flat f) v) (CHead d1 (Bind
b) w))).(ex_intro C (\lambda (d2: C).(getl (S h0) c (CHead d2 (Bind b) w)))
d1 (getl_gen_S (Flat f) c (CHead d1 (Bind b) w) v h0 H0))))) h H)))))))).
+(* COMMENTS
+Initial nodes: 327
+END *)
theorem cimp_flat_dx:
\forall (f: F).(\forall (c: C).(\forall (v: T).(cimp c (CHead c (Flat f)
C).(\lambda (w: T).(\lambda (h: nat).(\lambda (H: (getl h c (CHead d1 (Bind
b) w))).(ex_intro C (\lambda (d2: C).(getl h (CHead c (Flat f) v) (CHead d2
(Bind b) w))) d1 (getl_flat c (CHead d1 (Bind b) w) h H f v))))))))).
+(* COMMENTS
+Initial nodes: 83
+END *)
theorem cimp_bind:
\forall (c1: C).(\forall (c2: C).((cimp c1 c2) \to (\forall (b: B).(\forall
(\lambda (d2: C).(getl (S h0) (CHead c2 (Bind b) v) (CHead d2 (Bind b0) w)))
x (getl_head (Bind b) h0 c2 (CHead x (Bind b0) w) H3 v)))) H2)))))) h
H0)))))))))).
+(* COMMENTS
+Initial nodes: 817
+END *)
theorem cimp_getl_conf:
\forall (c1: C).(\forall (c2: C).((cimp c1 c2) \to (\forall (b: B).(\forall
b) w) (CHead x0 (Bind b0) w0))) H7 (S h) (minus_plus_r (S h) i)) in (ex_intro
C (\lambda (d2: C).(getl h x (CHead d2 (Bind b0) w0))) x0 (getl_gen_S (Bind
b) x (CHead x0 (Bind b0) w0) w h H8)))))))) H4))))))))) H2))) H1)))))))))).
+(* COMMENTS
+Initial nodes: 673
+END *)