fact: Definition union_fresh (fr : t) (x : ObjSet.t) : t := set_fresh fr (apply_top (ObjSet.union x) (fresh fr)).
imports: Coq(List) JML(Stack) Coq(ListSet) Coq(Bool) Coq(ZArith) Coq(Relation_Operators) JML(ListHelpers) Coq(Lia)