Definition mdegree_eq : mdegree -> mdegree -> Prop := (@predicate_equivalence (Tcons (term -> Prop) Tnil)).
Instance mdegree_eq_equiv : Equivalence mdegree_eq.
Notation "a =𝐦 b" := (mdegree_eq a b)  (at level 40).
Definition lt_mdegree a b := a ≤𝐦 b /\ ~ a =𝐦 b.
Notation "a <𝐦 b" := (lt_mdegree a b) (at level 40).
Instance leq_pre : PreOrder leq_mdegree.
Instance leq_porder : PartialOrder mdegree_eq leq_mdegree.
Instance le_strict : StrictOrder lt_mdegree.
Definition 𝐨 : mdegree.

Lemma mdegree_closed_recognisable a b :
a ≤𝐦 b -> recognisable_mdegree b -> recognisable_mdegree a.