Section EmbedProp'.
Context {A : Type} `{HILA: ILogic A} {HPropOpA: EmbedOp Prop A} {HPropA: Embed Prop A}.
Context {B : Type} `{HILB: ILogic B} {HPropOpB: EmbedOp Prop B} {HPropB: Embed Prop B}.
Context {HEmbOp : EmbedOp B A} {Hemb: Embed B A}.

Lemma embedPropR2 (p : Prop) (P : A) (H : p) : P |-- embed (embed p).