(* Instance Iso_atoms_sub_mor : Morphisms.Proper (eq ==> AtomSetImpl.Subset ==> eq ==> eq ==> impl) Iso.  Instance DefEq_atoms_sub_mor : Morphisms.Proper (eq ==> AtomSetImpl.Subset ==> eq ==> eq ==> eq ==> impl) DefEq. *)

Lemma Iso_weaken_available :
forall G D A B, Iso G D A B -> Iso G (dom G) A B.