fact: Fixpoint Vfold2 nA nB (vA : vector aT nA) (vB : vector bT nB) := match vA, vB with | Vnil, Vnil => Some x | Vcons xA sA, Vcons xB sB => match Vfold2 sA sB with | Some v => F xA xB v | None => None end | Vnil, Vcons _ _ => None | Vcons _ _, Vnil => None end.
imports: Coq(Vector Program Structures.Equalities Morphisms) CoLoR(LogicUtil NatUtil EqUtil ListUtil BoolUtil RelUtil)