fact: Definition next (block:t) (pc0:PC) : option PC := match suffixS (statements block) pc0 with | inleft (existT _ l _) => match tail l with | n::_ => Some (STATEMENT.pc n) | nil => None end | inright _ => None end.
imports: JML(JMLProgramPlus) Coq(ZArith) JML(ZHelpers) JML(LogicHelpers) Coq(Bool) Coq(Sumbool) Coq(Ndec) JML(PosAux) JML(EqBoolAux) Coq(Relation_Operators) Coq(List) JML(ListFunctions) JML(ListHelpers) JML(OptionHelpers)