fact: Fixpoint extractRequires (redundant:bool) (l:list SpecHeader) {struct l} : list (optionalSame Expression) := match l with | nil => nil | (requiresSH r e)::rr => if eqb r redundant then e :: extractRequires redundant rr else extractRequires redundant rr end.
imports: JML(Prelude) Coq(ZArith) Coq(Bool) Coq(List) JML(TaggedList) JML(ListHelpers) JML(ListFunctions) JML(OptionHelpers) JML(JMLProgramPlusImpl) JML(JMLFull2Basic) JML(JMLExpressionNotations)