proposition: Lemma succ_dec : rel_dec succ.
proof: Proof. intros x y. unfold succ. apply (Vforall2_dec gtx_dec (dom2vec x) (dom2vec y)). Defined.
imports: CoLoR(AMonAlg Matrix OrdSemiRing VecUtil SN RelUtil LogicUtil AMatrixBasedInt) Coq(Setoid Morphisms)