Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Why3
why3
Commits
010f394c
Commit
010f394c
authored
Feb 05, 2016
by
Guillaume Melquiond
Browse files
bugfix: compute also used goals as rewrite rules
parent
8f225f0d
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/transform/compute.ml
View file @
010f394c
...
...
@@ -37,9 +37,7 @@ let meta_begin_compute_context =
let
collect_rule_decl
prs
e
d
=
match
d
.
Decl
.
d_node
with
|
Decl
.
Dtype
_
|
Decl
.
Ddata
_
|
Decl
.
Dparam
_
|
Decl
.
Dind
_
|
Decl
.
Dlogic
_
->
e
|
Decl
.
Dprop
(
_
,
pr
,
t
)
->
|
Decl
.
Dprop
((
Plemma
|
Paxiom
)
,
pr
,
t
)
->
if
Decl
.
Spr
.
mem
pr
prs
then
try
add_rule
t
e
with
NotARewriteRule
msg
->
...
...
@@ -47,6 +45,7 @@ let collect_rule_decl prs e d =
Pretty
.
print_pr
pr
msg
;
e
else
e
|
_
->
e
let
collect_rules
p
env
km
prs
t
=
Task
.
task_fold
...
...
Write
Preview
Markdown
is supported
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