fact: Fixpoint PeanoView_sum_iter E T (f: positive -> T -> T + E) p (q: PeanoView p) a := match q with | PeanoOne => inl a | PeanoSucc p q => match f p a with | inl a => PeanoView_sum_iter f q a | e => e end end.
imports: ATBR(Common) ATBR(BoolView) ATBR(MyFSets MyFSetProperties MyFMapProperties) Coq(FSetPositive FMapPositive)