fact: Definition AllAmOfObject (p : Program) (h : Heap.t) (obj : Object) : LocSet.t := fold_right (fun fsig ams => match findField p fsig with | Some f => LocSet.add ( if FIELD.isStatic f then Heap.StaticField fsig else Heap.InstanceField obj fsig ) ams | None => ams end ) LocSet.empty (AllFields p h obj).
imports: Coq(List) Coq(Relation_Operators) Coq(DecidableType) Coq(FSetInterface)