03ce7cb17c
closes #1279 Originally reported at https://leanprover.zulipchat.com/#narrow/stream/270676-lean4/topic/case.20in.20dependent.20match.20not.20triggering.20.28.3F.29/near/288328239
8 lines
326 B
Text
8 lines
326 B
Text
def Arrow.compose₁ : {α β γ : O} → Arrow β γ → Arrow α β → Arrow α γ :=
|
||
fun {α β γ} x x_1 =>
|
||
match β, γ, x, x_1 with
|
||
| β, .(β), Arrow.id, g => g
|
||
| .(α), γ, f, Arrow.id => f
|
||
| β, γ, Arrow.comp f₁ f₂, g => Arrow.comp f₁ (Arrow.comp f₂ g)
|
||
| β, γ, f, g => Arrow.comp f g
|
||
Arrow.unit
|