proposition: Lemma rtc_refl x : x \in h -> rtc x x.
proof: Proof. by rewrite /rtc; case: decP. Qed.
imports: Coq(ssreflect ssrbool ssrfun) mathcomp(ssrnat eqtype seq choice fintype path fingraph) pcm(options axioms pred prelude finmap seqext)