fact: Definition EvalAssignableClause (p : Program) (c : Class) (m : Method) (st : State.t) : LocSet.t := let sr := ValidStoreRefs p c m st in match sr with | \nothing => LocSet.empty | \everything => AllLoc st@fr@preheap | StoreRefs srl => fold_right (fun sr locs => LocSet.union (StoreRef2Location p st@fr sr) locs) LocSet.empty srl end.
imports: Coq(List) Coq(ListSet) Coq(FSetInterface) Coq(Bool) Coq(ZArith) Coq(Relation_Operators) JML(ListHelpers)