(* Basic_2A1: includes: fleq_fpbq fpbq_lleq *)
inductive fpbq (h) (G1) (L1) (T1): relation3 genv lenv term ≝
-| fpbq_fquq: â\88\80G2,L2,T2. â¦\83G1,L1,T1â¦\84 â\8a\90⸮ ⦃G2,L2,T2⦄ → fpbq h G1 L1 T1 G2 L2 T2
+| fpbq_fquq: â\88\80G2,L2,T2. â¦\83G1,L1,T1â¦\84 â¬\82⸮ ⦃G2,L2,T2⦄ → fpbq h G1 L1 T1 G2 L2 T2
| fpbq_cpx : ∀T2. ⦃G1,L1⦄ ⊢ T1 ⬈[h] T2 → fpbq h G1 L1 T1 G1 L1 T2
| fpbq_lpx : ∀L2. ⦃G1,L1⦄ ⊢ ⬈[h] L2 → fpbq h G1 L1 T1 G1 L2 T1
| fpbq_fdeq: ∀G2,L2,T2. ⦃G1,L1,T1⦄ ≛ ⦃G2,L2,T2⦄ → fpbq h G1 L1 T1 G2 L2 T2