You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
import NNG.MyNat.Addition
|
|
|
|
namespace MyNat
|
|
|
|
open MyNat
|
|
|
|
def mul : MyNat → MyNat → MyNat
|
|
| _, 0 => 0
|
|
| a, b + 1 => a + (MyNat.mul a b)
|
|
|
|
instance : Mul MyNat where
|
|
mul := MyNat.mul
|
|
|
|
axiom mul_zero (a : MyNat) : a * 0 = 0
|
|
|
|
axiom mul_succ (a b : MyNat) : a * (succ b) = a * b + a
|
|
|