fact: Definition rewriteInvariants (invs:list INVARIANT.t) (enc:TYPEDEF.t) : list INVARIANT.t := let fieldInvs := fieldNonNullInvariants (TYPEDEF.name enc) (TYPEDEF.fields enc) in let modelFieldInvs := modelFieldNonNullInvariants (TYPEDEF.name enc) (TYPEDEF.modelFields enc) in invs +++ fieldInvs +++ modelFieldInvs.
imports: JML(Prelude) Coq(ZArith) Coq(Bool) Coq(List) JML(TaggedList) JML(ListHelpers) JML(ListFunctions) JML(OptionHelpers) JML(JMLProgramPlusImpl) JML(JMLFull2Basic) JML(JMLExpressionNotations)