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
ea0ab542
Commit
ea0ab542
authored
Dec 11, 2015
by
Martin Clochard
Browse files
byso: introduce_premises stop at by
parent
73c352e9
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/transform/introduction.ml
View file @
ea0ab542
...
...
@@ -21,6 +21,9 @@ open Term
open
Decl
let
rec
intros
pr
f
=
match
f
.
t_node
with
|
Tbinop
(
Timplies
,
{
t_node
=
Tbinop
(
Tor
,
f2
,
{
t_node
=
Ttrue
})
}
,
f1
)
when
Slab
.
mem
Term
.
asym_label
f2
.
t_label
->
[
create_prop_decl
Pgoal
pr
f
]
|
Tbinop
(
Timplies
,
f1
,
f2
)
->
(* split f1 *)
(* f is going to be removed, preserve its labels and location in f2 *)
...
...
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