16 lines
442 B
Text
16 lines
442 B
Text
|
set_option pp.beta true
|
||
|
|
|
||
|
|
structure foo :=
|
||
|
|
mk :: (A : Type) (B : A → Type) (a : A) (b : B a)
|
||
|
|
|
||
|
|
namespace foo
|
||
|
|
|
||
|
|
definition foo.inj₁
|
||
|
|
{A₁ : Type} {B₁ : A₁ → Type} {a₁ : A₁} {b₁ : B₁ a₁}
|
||
|
|
{A₂ : Type} {B₂ : A₂ → Type} {a₂ : A₂} {b₂ : B₂ a₂}
|
||
|
|
(H : foo.mk A₁ B₁ a₁ b₁ = foo.mk A₂ B₂ a₂ b₂)
|
||
|
|
: A₁ = A₂
|
||
|
|
:= lift.down (no_confusion H (λ e₁ e₂ e₃ e₄, e₁))
|
||
|
|
|
||
|
|
end foo
|