fact: Definition mergeAccessible (l:list (optional StoreRefList)) : option (optional StoreRefList) := match l with | nil => None | _ => Some (fold_left1 (liftOptional2 appLocations) l NotSpecified) end.
imports: JML(Prelude) Coq(ZArith) Coq(Bool) Coq(List) JML(TaggedList) JML(ListHelpers) JML(ListFunctions) JML(OptionHelpers) JML(JMLProgramPlusImpl) JML(JMLFull2Basic) JML(JMLExpressionNotations)