8 lines
350 B
Text
8 lines
350 B
Text
a + of_num b = 10 : Prop
|
|
@eq.{1} nat
|
|
(@add.{1} nat _source.to.has_add ((λ (x : nat), x) a)
|
|
(nat.of_num (@bit0.{1} num num_has_add (@one.{1} num num_has_one))))
|
|
(@bit0.{1} nat _source.to.has_add
|
|
(@bit1.{1} nat _source.to.has_one _source.to.has_add
|
|
(@bit0.{1} nat _source.to.has_add (@one.{1} nat _source.to.has_one)))) :
|
|
Prop
|