End EmbedProp'.
Section EmbedPropProp.
Instance EmbedOpPropProp : EmbedOp Prop Prop := { embed := fun P => P }.
Instance EmbedPropProp : Embed Prop Prop.
End EmbedPropProp.
Section EmbedPropInj.
Context {A : Type} `{ILA : ILogic A}.
Context {EmbOp1 : EmbedOp Prop A} {Emb1 : Embed Prop A}.
Context {EmbOp2 : EmbedOp Prop A} {Emb2 : Embed Prop A}.

Lemma emb_prop_eq (P : Prop) : @embed _ _ EmbOp1 P -|- @embed _ _ EmbOp2 P.
End EmbedPropInj.