(* Main properties **********************************************************)
(* Basic_1: was: lift1_lift1 (left to right) *)
-theorem lifts_trans: â\88\80T1,T,des1. â\87§*[des1] T1 â\89¡ T â\86\92 â\88\80T2:term. â\88\80des2. â\87§*[des2] T ≡ T2 →
- â\87§*[des1 @@ des2] T1 ≡ T2.
+theorem lifts_trans: â\88\80T1,T,des1. â¬\86*[des1] T1 â\89¡ T â\86\92 â\88\80T2:term. â\88\80des2. â¬\86*[des2] T ≡ T2 →
+ â¬\86*[des1 @@ des2] T1 ≡ T2.
#T1 #T #des1 #H elim H -T1 -T -des1 // /3 width=3/
qed.