(* définition d'un ordre sur bool et sur le treillis des (Map bool) à domaine fixé*)
Definition leb (b0 b1 : bool) : Prop :=
match b0, b1 with
| false, false => True
| false, true => True
| true, false => False
| true, true => True
end.

Lemma lem_order : r_order bool lem.
Definition ensemble_base (A : Set) (m : Map A) (x : Map bool) :=
domain_equal A bool m x.