2014-10-07 18:02:15 -07:00
|
|
|
import logic
|
2014-10-08 23:44:09 -07:00
|
|
|
namespace foo
|
2014-10-07 18:02:15 -07:00
|
|
|
definition subsingleton (A : Type) := ∀⦃a b : A⦄, a = b
|
2015-01-24 20:23:21 -08:00
|
|
|
attribute subsingleton [class]
|
2014-10-07 18:02:15 -07:00
|
|
|
|
|
|
|
protected definition prop.subsingleton [instance] (P : Prop) : subsingleton P :=
|
|
|
|
λa b, !proof_irrel
|
2014-10-08 23:44:09 -07:00
|
|
|
end foo
|