Skip to content
Snippets Groups Projects
Commit c885513d authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Replace some non-unicode arrows.

parent 7e19e1e7
No related branches found
No related tags found
No related merge requests found
...@@ -8,8 +8,8 @@ Local Arguments cmra_validN _ _ !_ /. ...@@ -8,8 +8,8 @@ Local Arguments cmra_validN _ _ !_ /.
Local Arguments cmra_valid _ !_ /. Local Arguments cmra_valid _ !_ /.
Inductive csum (A B : Type) := Inductive csum (A B : Type) :=
| Cinl : A -> csum A B | Cinl : A csum A B
| Cinr : B -> csum A B | Cinr : B csum A B
| CsumBot : csum A B. | CsumBot : csum A B.
Arguments Cinl {_ _} _. Arguments Cinl {_ _} _.
Arguments Cinr {_ _} _. Arguments Cinr {_ _} _.
...@@ -22,13 +22,13 @@ Implicit Types b : B. ...@@ -22,13 +22,13 @@ Implicit Types b : B.
(* Cofe *) (* Cofe *)
Inductive csum_equiv : Equiv (csum A B) := Inductive csum_equiv : Equiv (csum A B) :=
| Cinl_equiv a a' : a a' -> Cinl a Cinl a' | Cinl_equiv a a' : a a' Cinl a Cinl a'
| Cinlr_equiv b b' : b b' -> Cinr b Cinr b' | Cinlr_equiv b b' : b b' Cinr b Cinr b'
| CsumBot_equiv : CsumBot CsumBot. | CsumBot_equiv : CsumBot CsumBot.
Existing Instance csum_equiv. Existing Instance csum_equiv.
Inductive csum_dist : Dist (csum A B) := Inductive csum_dist : Dist (csum A B) :=
| Cinl_dist n a a' : a {n} a' -> Cinl a {n} Cinl a' | Cinl_dist n a a' : a {n} a' Cinl a {n} Cinl a'
| Cinlr_dist n b b' : b {n} b' -> Cinr b {n} Cinr b' | Cinlr_dist n b b' : b {n} b' Cinr b {n} Cinr b'
| CsumBot_dist n : CsumBot {n} CsumBot. | CsumBot_dist n : CsumBot {n} CsumBot.
Existing Instance csum_dist. Existing Instance csum_dist.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment