(* THEN, OK: *)

Theorem orb_x_eqs_orb_y0: forall(m:fmap)(x y:dart),
let m1:= L m one x y in
let y0:= cA m zero y in
inv_hmap m1 -> ~expf m x y0 ->
eqs (MF.Iter_orb m1 x) (MF.Iter_orb m1 y0).