fact: Definition Successor A (r s: relation A) := << FUN: functional s >> /\ << INJ: functional s⁻¹ >> /\ << SUC: s⁻¹ ⨾ r ⊆ r^? >> /\ << INC: s ⊆ r >>.
imports: Arith micromega.Lia Setoid HahnBase HahnList HahnRelationsBasic HahnEquational HahnRewrite HahnSets HahnMaxElt Zorn