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

feat: expose some transcendental functions from the C library

Browse source 
cc @dselsam
This commit is contained in:
Leonardo de Moura 2020-04-06 15:19:28 -07:00
parent 705530b62b
commit b8ea55c989
2 changed files with 32 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
src/Init/Data/Float.lean
View file

@ -73,3 +73,27 @@ instance : HasToString Float := ⟨Float.toString⟩
abbrev Nat.toFloat (n : Nat) : Float :=
Float.ofNat n
@[extern "sin"] constant Float.sin : Float → Float := arbitrary _
@[extern "cos"] constant Float.cos : Float → Float := arbitrary _
@[extern "tan"] constant Float.tan : Float → Float := arbitrary _
@[extern "asin"] constant Float.asin : Float → Float := arbitrary _
@[extern "acos"] constant Float.acos : Float → Float := arbitrary _
@[extern "atan"] constant Float.atan : Float → Float := arbitrary _
@[extern "atan2"] constant Float.atan2 : Float → Float → Float := arbitrary _
@[extern "sinh"] constant Float.sinh : Float → Float := arbitrary _
@[extern "cosh"] constant Float.cosh : Float → Float := arbitrary _
@[extern "tanh"] constant Float.tanh : Float → Float := arbitrary _
@[extern "asinh"] constant Float.asinh : Float → Float := arbitrary _
@[extern "acosh"] constant Float.acosh : Float → Float := arbitrary _
@[extern "atanh"] constant Float.atanh : Float → Float := arbitrary _
@[extern "exp"] constant Float.exp : Float → Float := arbitrary _
@[extern "exp2"] constant Float.exp2 : Float → Float := arbitrary _
@[extern "log"] constant Float.log : Float → Float := arbitrary _
@[extern "log2"] constant Float.log2 : Float → Float := arbitrary _
@[extern "log10"] constant Float.log10 : Float → Float := arbitrary _
@[extern "pow"] constant Float.pow : Float → Float → Float := arbitrary _
@[extern "sqrt"] constant Float.sqrt : Float → Float := arbitrary _
@[extern "cbrt"] constant Float.cbrt : Float → Float := arbitrary _
instance : HasPow Float Float := ⟨Float.pow⟩

8
tests/lean/run/float1.lean Normal file
View file

@ -0,0 +1,8 @@
def main : IO Unit := do
IO.println ((2 : Float).sin);
IO.println ((2 : Float).cos);
IO.println ((2 : Float).sqrt);
IO.println ((2 : Float) ^ (200 : Float));
pure ()
#eval main