Fact binary_le_trans x y z : x ≲ y -> y ≲ z -> x ≲ z.
Fact lb_mask_equiv_equal l m : l ≂ m <-> ⟦l⟧ = ⟦m⟧.
Fact equal_lb_mask_equiv x y : x = y <-> ⟬ x⟭ ≂⟬ y⟭.
Local Notation lbeq := lb_mask_equiv (only parsing).
Add Parametric Morphism: (lb_nat) with signature (lbeq) ==> (eq) as lb_nat_eq.

(* Specifications: *)
Theorem binary_le_diophatine x y :
dio_expression x
-> dio_expression y
-> dio_rel (fun v => x v ≲ y v).