fact: Definition next_fin k (x : Finite k) (y : Finite k) := match (x,y) with | (@FinIntro _ x Hn, @FinIntro _ y Hm) => (S x = k /\ y = O) \/ (S x < k /\ y = S x) end.
imports: Coq(Arith Wf_nat Lia) AlmostFull.PropBounded(AlmostFull)