proposition: Lemma RL_sub_hyp : forall (i : nat) (H : i <= n), {H' : sub i <= m | P i H [=] Q (sub i) H'}.
proof: Proof. apply (proj2b_sig2T _ _ _ Href). Qed.
imports: CoRN.ftc.RefSeparating CoRN.ftc.RefSeparated CoRN.ftc.RefSepRef