23 lines
404 B
Text
23 lines
404 B
Text
|
import data.finset
|
||
|
|
open bool nat list finset
|
||
|
|
|
||
|
|
attribute finset [class]
|
||
|
|
|
||
|
|
definition fin_nat [instance] : finset nat :=
|
||
|
|
to_finset [0]
|
||
|
|
|
||
|
|
definition fin_bool [instance] : finset bool :=
|
||
|
|
to_finset [tt, ff]
|
||
|
|
|
||
|
|
definition tst (A : Type) [s : finset A] : finset A :=
|
||
|
|
s
|
||
|
|
|
||
|
|
example : tst nat = to_finset [0] :=
|
||
|
|
rfl
|
||
|
|
|
||
|
|
example : tst bool = to_finset [ff, tt] :=
|
||
|
|
dec_trivial
|
||
|
|
|
||
|
|
example : tst bool = to_finset [tt, ff] :=
|
||
|
|
rfl
|