fact: Axiom AllFields_def: forall p h loc fsig , match Heap.typeof h loc with | Some (Heap.ObjectObject cn um) => (In fsig (AllFields p h loc) <-> defined_field p cn fsig) | _ => AllFields p h loc = [] end.
imports: Coq(List) Coq(Relation_Operators) Coq(DecidableType) Coq(FSetInterface)