2bd04285f8
This commit is using the easy fix described at issue #1087. Hopefully the performance overhead is small. closes #1087
12 lines
327 B
Text
12 lines
327 B
Text
def combine : PSum Unit (p → q) → PSum Unit p → PSum Unit q
|
|
| PSum.inr f, PSum.inr proof => PSum.inr $ f proof
|
|
| _, _ => PSum.inl ()
|
|
|
|
def tst : String :=
|
|
let f : PSum Unit (True → True) := .inr id
|
|
let v : PSum Unit True := .inr .intro
|
|
match combine f v with
|
|
| .inr _ => "inr"
|
|
| .inl _ => "inl"
|
|
|
|
#eval tst
|