rewrite/almost_full; move=> [p] H1; exists p.
apply: (@sec_strengthen _ _ (fun x y => eq_fin (cs2id x) (cs2id y)))=> // x y.
rewrite/cs2id=> /=; case=> H2; apply/eqP.
by apply: enum_rank_inj; apply: (ord_inj H2).
Qed.

Lemma wf_trans : well_founded trans.
End Terminate. End Terminate.