End KNOT.
Module Knot (TF':TY_FUNCTOR) : KNOT with Module TF:=TF'.
Module TF := TF'.
(* Put the discrete pointed order on rhs *)
Inductive leT : T -> T -> Prop :=
| leT_refl : forall t, leT t t
| leT_bot: forall t, leT T_bot t.

Lemma leT_asym: forall t t',
leT t t' -> leT t' t -> t = t'.