Skip to content
GitLab
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
a3749c0b
Commit
a3749c0b
authored
Aug 19, 2014
by
MARCHE Claude
Browse files
transf compute: comments in .mli
parent
367307fe
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/transform/compute.ml
View file @
a3749c0b
...
...
@@ -4,6 +4,8 @@ open Decl
open
Task
open
Theory
(* obsolete
type env = {
tknown : Decl.known_map;
vsenv : term Mvs.t;
...
...
@@ -328,7 +330,7 @@ let () =
(fun env -> Trans.store (compute env))
~desc:"Compute@ as@ much@ as@ possible"
*)
(* compute with rewrite rules *)
...
...
src/transform/reduction_engine.mli
View file @
a3749c0b
...
...
@@ -68,15 +68,30 @@ terms are normalized with respect to
*)
type
engine
(** abstract type for reduction engines *)
val
create
:
Env
.
env
->
Decl
.
decl
Ident
.
Mid
.
t
->
engine
(** [create env known_map] creates a reduction engine with
. builtins theories (int.Int, etc.) extracted from [env]
. known declarations from [known_map]
. empty set of rewrite rules
*)
exception
NotARewriteRule
of
string
val
add_rule
:
Term
.
term
->
engine
->
engine
(** [add_rule t e] turns [t] into a new rewrite rule and returns the
new engine.
raise NotARewriteRule if [t] cannot be seen as a rewrite rule
according to the general rules given above.
*)
val
normalize
:
engine
->
Term
.
term
->
Term
.
term
(** [normalize e t] normalizes the term [t] with respect to the engine
[e]
TODO: specify the behavior when non-termination...
*)
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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