(* Properties with structural successor for closures ************************)
lemma fqu_fneqg (S) (b) (G1) (G2) (L1) (L2) (T1) (T2):
- â\9dªG1,L1,T1â\9d« â¬\82[b] â\9dªG2,L2,T2â\9d« â\86\92 â\9dªG1,L1,T1â\9d« â\89\9b[S] â\9dªG2,L2,T2â\9d« → ⊥.
+ â\9d¨G1,L1,T1â\9d© â¬\82[b] â\9d¨G2,L2,T2â\9d© â\86\92 â\9d¨G1,L1,T1â\9d© â\89\9b[S] â\9d¨G2,L2,T2â\9d© → ⊥.
#S #b #G1 #G2 #L1 #L2 #T1 #T2 #H elim H -G1 -G2 -L1 -L2 -T1 -T2
[ /3 width=8 by feqg_fwd_length, nsucc_inv_refl/
| /3 width=9 by teqg_inv_pair_xy_x, feqg_fwd_teqg/