13 lines
245 B
Text
13 lines
245 B
Text
set_option new_elaborator true
|
|
|
|
section
|
|
variable {A : Type}
|
|
variable [s : setoid A]
|
|
variable {B : quot s → Type}
|
|
include s
|
|
|
|
attribute [reducible]
|
|
protected definition ex (f : Π a, B ⟦a⟧) (a : A) : Σ q, B q :=
|
|
sigma.mk ⟦a⟧ (f a)
|
|
|
|
end
|