14 lines
186 B
Text
14 lines
186 B
Text
import logic
|
|
|
|
|
|
context
|
|
universe l
|
|
variable A : Type.{l}
|
|
variable a : A
|
|
parameter B : Type.{l}
|
|
parameter b : B
|
|
|
|
definition foo := fun (H : A = B), cast H a = b
|
|
end
|
|
|
|
check foo
|