fact: Definition EvalNewExpression (t : StaticType) (st : State.t) : option Object := match t with | ReferenceType (TypeDefType cn um) => match (Heap.new st@h p (Heap.ObjectObject cn um)) with | Some (loc, h') => Some loc | _ => None end | _ => None end.
imports: Coq(List) Coq(ListSet) Coq(FSetInterface) Coq(Bool) Coq(ZArith) Coq(Relation_Operators) JML(ListHelpers)