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

Typo.

parent 0c3914f7
...@@ -30,12 +30,12 @@ Implicit Types b : B. ...@@ -30,12 +30,12 @@ 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' | Cinr_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' | Cinr_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.
......
Supports Markdown
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