fact: Fixpoint power n X (R : X -> X -> Prop) (x y:X) := match n with | O => x = y | S m => exists z, R x z /\ power m R z y end.
imports: Coq(Arith Relations Lia) AlmostFull.PropBounded(AlmostFull) AlmostFull.PropBounded(AFConstructions)