12 lines
214 B
Text
12 lines
214 B
Text
|
|
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
|