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 embedPropL2 (p : Prop) (C : A) (H: p -> |-- C) :
embed (embed p) |-- C.