fact: Definition iterc A T (g : A -> T -> A -> T -> Prop) a1 s1 a2 s2 := iter (fun '(a1, a2) '(b1, b2) => g a1 a2 b1 b2) (a1, s1) (a2, s2).
imports: Coq(ssreflect ssrbool ssrfun Setoid) mathcomp(ssrnat seq eqtype) pcm(options)