(* Packaging the definition into an type, _indexed_ by a specificaion s. *)
Inductive DT (W: world) A :=
  with_spec (s : spec A) of DTbin this W s.(* Packaging the definition into an type, _indexed_ by a specificaion s. *)
Inductive DT (W: world) A :=
  with_spec (s : spec A) of DTbin this W s.

(* Specifications: *)
Lemma leq_refl e : leq e e.
Lemma leq_trans e1 e2 e3 : leq e1 e2 -> leq e2 e3 -> leq e1 e3.
Lemma leq_asym e1 e2 : leq e1 e2 -> leq e2 e1 -> e1 = e2.