proposition: Theorem Eeq_trans_realizer : forall e, Eeq_trans↓e ⊩ ∀x, ∀y, ∀z, (x ≡≡ y → y ≡≡ z → x ≡≡ z)%Re.
proof: Proof. intro e. unfold Eeq. start. apply Ht1. repeat split; ok || start. repeat Ksolve. eok. repeat Ksolve. eok. now split. repeat Ksolve. eok. repeat Ksolve. eok. now split. Qed.
imports: QArith Psatz ClassicalRealizability.Kbase ClassicalRealizability.Rationals ClassicalRealizability.Real_definitions