(** * Elements *)

Notation eqk := (PX.eqk (elt:= elt)).Notation eqke := (PX.eqke (elt:= elt)).Notation ltk := (PX.ltk (elt:= elt)).

Lemma elements_aux_cardinal : forall (m:t elt) acc, (length acc + cardinal m)%nat = length (elements_aux acc m).