Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Why3
why3
Commits
659146bb
Commit
659146bb
authored
Nov 26, 2010
by
MARCHE Claude
Browse files
coq output: trigonometric functions
parent
3e74ed80
Changes
1
Hide whitespace changes
Inline
Side-by-side
drivers/coq.drv
View file @
659146bb
...
@@ -16,6 +16,8 @@ transformation "inline_trivial"
...
@@ -16,6 +16,8 @@ transformation "inline_trivial"
transformation "eliminate_builtin"
transformation "eliminate_builtin"
transformation "eliminate_recursion"
transformation "eliminate_recursion"
transformation "eliminate_if"
transformation "simplify_formula"
transformation "simplify_formula"
transformation "simplify_trivial_quantification_in_goal"
transformation "simplify_trivial_quantification_in_goal"
...
@@ -197,12 +199,12 @@ theory real.Trigonometry
...
@@ -197,12 +199,12 @@ theory real.Trigonometry
prelude "Require Import Rtrigo."
prelude "Require Import Rtrigo."
prelude "Require Import AltSeries. (* for def of pi *)"
prelude "Require Import AltSeries. (* for def of pi *)"
syntax logic cos "(cos %1)"
syntax logic cos "(
Rtrigo_def.
cos %1)"
syntax logic sin "(sin %1)"
syntax logic sin "(
Rtrigo_def.
sin %1)"
syntax logic pi "PI"
syntax logic pi "PI"
syntax logic tan "(tan %1)"
syntax logic tan "(
Rtrigo.
tan %1)"
(* syntax logic atan "atan not defined in Coq ?" *)
(* syntax logic atan "atan not defined in Coq ?" *)
end
end
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment