8 lines
197 B
Text
8 lines
197 B
Text
|
import logic
|
||
|
|
|
||
|
|
definition subsingleton (A : Type) := ∀⦃a b : A⦄, a = b
|
||
|
|
class subsingleton
|
||
|
|
|
||
|
|
protected definition prop.subsingleton [instance] (P : Prop) : subsingleton P :=
|
||
|
|
λa b, !proof_irrel
|