fact: Definition implicitCtorDefaultSpecs (enc:TYPEDEF.t) : FULL_SPEC_CASE.t := let parentCtor := match TYPEDEF.superClass enc with | Some sup => zeroArgCtor sup | None => None end in let parentSpecs := match parentCtor with | Some ctor => METHOD.fullSpecs ctor | None => nil end in let clauses := match assignableUnion parentSpecs with | Some ole => (assignableC false ole) :: nil | None => nil end in let case := GENERIC_SPEC_CASE.Build_t nil nil nil (inl _ clauses) in FULL_SPEC_CASE.Build_t lightweight None false false case.
imports: JML(Prelude) Coq(ZArith) Coq(Bool) Coq(List) JML(TaggedList) JML(ListHelpers) JML(ListFunctions) JML(OptionHelpers) JML(JMLProgramPlusImpl) JML(JMLFull2Basic) JML(JMLExpressionNotations)