Commit af2d7dea authored by Jacques-Henri Jourdan's avatar Jacques-Henri Jourdan
Browse files

MakeMorphism -> MakeEmbed.

parent 61e71c17
...@@ -805,23 +805,23 @@ Proof. ...@@ -805,23 +805,23 @@ Proof.
rewrite /FromPure /Frame=> <-. by rewrite affinely_persistently_if_elim sep_elim_l. rewrite /FromPure /Frame=> <-. by rewrite affinely_persistently_if_elim sep_elim_l.
Qed. Qed.
Class MakeMorphism `{BiEmbedding PROP PROP'} P (Q : PROP') := Class MakeEmbed `{BiEmbedding PROP PROP'} P (Q : PROP') :=
make_embed : P Q. make_embed : P Q.
Arguments MakeMorphism {_ _ _} _%I _%I. Arguments MakeEmbed {_ _ _} _%I _%I.
Global Instance make_embed_pure `{BiEmbedding PROP PROP'} φ : Global Instance make_embed_pure `{BiEmbedding PROP PROP'} φ :
MakeMorphism ⌜φ⌝ ⌜φ⌝. MakeEmbed ⌜φ⌝ ⌜φ⌝.
Proof. by rewrite /MakeMorphism bi_embed_pure. Qed. Proof. by rewrite /MakeEmbed bi_embed_pure. Qed.
Global Instance make_embed_emp `{BiEmbedding PROP PROP'} : Global Instance make_embed_emp `{BiEmbedding PROP PROP'} :
MakeMorphism emp emp. MakeEmbed emp emp.
Proof. by rewrite /MakeMorphism bi_embed_emp. Qed. Proof. by rewrite /MakeEmbed bi_embed_emp. Qed.
Global Instance make_embed_default `{BiEmbedding PROP PROP'} : Global Instance make_embed_default `{BiEmbedding PROP PROP'} :
MakeMorphism P P | 100. MakeEmbed P P | 100.
Proof. by rewrite /MakeMorphism. Qed. Proof. by rewrite /MakeEmbed. Qed.
Global Instance frame_embed `{BiEmbedding PROP PROP'} p P Q (Q' : PROP') R : Global Instance frame_embed `{BiEmbedding PROP PROP'} p P Q (Q' : PROP') R :
Frame p R P Q MakeMorphism Q Q' Frame p R P Q'. Frame p R P Q MakeEmbed Q Q' Frame p R P Q'.
Proof. Proof.
rewrite /Frame /MakeMorphism => <- <-. rewrite /Frame /MakeEmbed => <- <-.
rewrite bi_embed_sep bi_embed_affinely_if bi_embed_persistently_if => //. rewrite bi_embed_sep bi_embed_affinely_if bi_embed_persistently_if => //.
Qed. Qed.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment