proposition: Lemma prl_restr_canonical_fun_ev2 S J (H: sub J (psI S)) x j: inc x (projective_limit S) -> inc j J -> Vg (Vf (prl_restr_canonical H) x) j = Vg x j.
proof: Proof. move => xs iJ;rewrite (prl_restr_canonical_fun_ev H xs); rewrite LgV//. Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)