\forall (t1: T).(\forall (t2: T).((pr0 t1 t2) \to (pr1 t1 t2)))
\def
\lambda (t1: T).(\lambda (t2: T).(\lambda (H: (pr0 t1 t2)).(pr1_sing t2 t1 H
\forall (t1: T).(\forall (t2: T).((pr0 t1 t2) \to (pr1 t1 t2)))
\def
\lambda (t1: T).(\lambda (t2: T).(\lambda (H: (pr0 t1 t2)).(pr1_sing t2 t1 H
t5))))).(\lambda (t5: T).(\lambda (H3: (pr1 t4 t5)).(pr1_sing t0 t3 H0 t5 (H2
t5 H3)))))))))) t1 t2 H))).
t5))))).(\lambda (t5: T).(\lambda (H3: (pr1 t4 t5)).(pr1_sing t0 t3 H0 t5 (H2
t5 H3)))))))))) t1 t2 H))).
\forall (u1: T).(\forall (u2: T).((pr1 u1 u2) \to (\forall (t: T).(\forall
(k: K).(pr1 (THead k u1 t) (THead k u2 t))))))
\def
\forall (u1: T).(\forall (u2: T).((pr1 u1 u2) \to (\forall (t: T).(\forall
(k: K).(pr1 (THead k u1 t) (THead k u2 t))))))
\def
(THead k t2 t) (THead k t1 t) (pr0_comp t1 t2 H0 t t (pr0_refl t) k) (THead k
t3 t) H2))))))) u1 u2 H))))).
(THead k t2 t) (THead k t1 t) (pr0_comp t1 t2 H0 t t (pr0_refl t) k) (THead k
t3 t) H2))))))) u1 u2 H))))).
\forall (t1: T).(\forall (t2: T).((pr1 t1 t2) \to (\forall (u: T).(\forall
(k: K).(pr1 (THead k u t1) (THead k u t2))))))
\def
\forall (t1: T).(\forall (t2: T).((pr1 t1 t2) \to (\forall (u: T).(\forall
(k: K).(pr1 (THead k u t1) (THead k u t2))))))
\def
\forall (w: T).(\forall (u: T).(let t \def (THead (Bind Abst) w u) in
(\forall (v: T).((pr1 v w) \to (pr1 (THead (Bind Abst) v (THead (Flat Appl)
(TLRef O) (lift (S O) O t))) t)))))
\forall (w: T).(\forall (u: T).(let t \def (THead (Bind Abst) w u) in
(\forall (v: T).((pr1 v w) \to (pr1 (THead (Bind Abst) v (THead (Flat Appl)
(TLRef O) (lift (S O) O t))) t)))))