fact: Definition addHeaders (specs:FULL_SPEC_CASE.t) (reqs:list SpecHeader) : FULL_SPEC_CASE.t := let (sct,v,r,cc,case) := specs in FULL_SPEC_CASE.Build_t sct v r cc (GENERIC_SPEC_CASE.Build_t nil nil reqs (inr _ (case::nil))).
imports: JML(Prelude) Coq(ZArith) Coq(Bool) Coq(List) JML(TaggedList) JML(ListHelpers) JML(ListFunctions) JML(OptionHelpers) JML(JMLProgramPlusImpl) JML(JMLFull2Basic) JML(JMLExpressionNotations)