fact: Definition modelFieldNonNullInvariant (entityName:ClassName) (f:ModelField) : option INVARIANT.t := if MODELFIELD.isNullable f || negb (isReferenceType (FIELDSIGNATURE.type (MODELFIELD.signature f))) then None else let fExpr := field (entityName, (MODELFIELD.signature f)) None in Some (INVARIANT.Build_t (fExpr != null)%jml (MODELFIELD.visibility f) (MODELFIELD.isStatic f) false).
imports: JML(Prelude) Coq(ZArith) Coq(Bool) Coq(List) JML(TaggedList) JML(ListHelpers) JML(ListFunctions) JML(OptionHelpers) JML(JMLProgramPlusImpl) JML(JMLFull2Basic) JML(JMLExpressionNotations)