Section typeOk_from_equal.
Universe u.
Context {T : Type@{u}} (r : relation T).
Hypothesis p : forall x y, r x y -> r x x /\ r y y.
Hypothesis sym : Symmetric r.
Hypothesis trans : Transitive r.
End typeOk_from_equal.

Theorem typeOk_libniz@{u} (T : Type@{u}) : typeOk (type_libniz T).