max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

chore(tests/playground/deriv): fix test

Browse source
This commit is contained in:
Leonardo de Moura 2019-04-17 17:12:30 -07:00
parent 89874edc14
commit e3dfc73b3a
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tests/playground/deriv.lean
View file

@ -9,14 +9,14 @@ inductive Expr
open Expr
def pown : Int → Int → Int
partial def pown : Int → Int → Int
| a 0 := 1
| a 1 := a
| a n :=
let b := pown a (n / 2) in
b * b * (if n % 2 = 0 then 1 else a)
def add : Expr → Expr → Expr
partial def add : Expr → Expr → Expr
| (Val n) (Val m) := Val (n + m)
| (Val 0) f := f
| f (Val 0) := f
@ -26,7 +26,7 @@ def add : Expr → Expr → Expr
| (Add f g) h := add f (add g h)
| f g := Add f g
def mul : Expr → Expr → Expr
partial def mul : Expr → Expr → Expr
| (Val n) (Val m) := Val (n*m)
| (Val 0) _ := Val 0
| _ (Val 0) := Val 0