fact: Definition Rtp (x y : tp) : bool := R (eqtype.val x) (eqtype.val y).
imports: Coq(ssreflect ssrbool ssrfun) mathcomp(ssrnat eqtype seq choice fintype path fingraph) pcm(options axioms pred prelude finmap seqext)