@[extern lean_nat_shiftl]
Equations
- Nat.shiftLeft _fun_discr 0 = _fun_discr
- Nat.shiftLeft _fun_discr (Nat.succ m) = Nat.shiftLeft (2 * _fun_discr) m
@[extern lean_nat_shiftr]
Equations
- Nat.shiftRight _fun_discr 0 = _fun_discr
- Nat.shiftRight _fun_discr (Nat.succ m) = Nat.shiftRight _fun_discr m / 2
Equations
- Nat.instShiftLeftNat = { shiftLeft := Nat.shiftLeft }
Equations
- Nat.instShiftRightNat = { shiftRight := Nat.shiftRight }