proposition: Lemma is_finite_ok : forall v, is_finite v = true <-> v <> MinusInf.
proof: Proof. intro. destruct v; simpl; intuition. discr. Qed.
imports: Coq(Relations Arith Compare Bool Setoid Morphisms) CoLoR(RelDec LogicUtil RelExtras EqUtil NatUtil ZUtil) Bignums(BigN) Coq(ZArith) Bignums(BigZ)