fact: Definition desugarNonNullResult (specs:list FULL_SPEC_CASE.t) (m:METHOD.t) : list FULL_SPEC_CASE.t := let ens := resultNonNullEnsures m in let defaultCase ens' := GENERIC_SPEC_CASE.Build_t nil nil nil (inl _ (ens'::nil)) in let defaultSpecs ens' := FULL_SPEC_CASE.Build_t lightweight None false false (defaultCase ens') in match ens, specs with | None, _ => specs | Some ens', nil => defaultSpecs ens' :: nil | Some ens', _ => map (fun s => addBody s ens') specs end.
imports: JML(Prelude) Coq(ZArith) Coq(Bool) Coq(List) JML(TaggedList) JML(ListHelpers) JML(ListFunctions) JML(OptionHelpers) JML(JMLProgramPlusImpl) JML(JMLFull2Basic) JML(JMLExpressionNotations)