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
f665916d
Commit
f665916d
authored
May 24, 2017
by
Sylvain Dailler
Browse files
Using driver from the controller for interactive provers.
parent
eb43812d
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/session/controller_itp.ml
View file @
f665916d
...
...
@@ -585,14 +585,8 @@ let schedule_proof_attempt ?proof_script c id pr ~counterexmp ~limit ~callback ~
(* TODO to be simplified *)
(* create the path to a file for saving the external proof script *)
let
create_file_rel_path
c
pr
pn
=
let
config
=
c
.
controller_config
in
let
c_env
=
c
.
controller_env
in
let
session
=
c
.
controller_session
in
let
prover_conf
=
Whyconf
.
get_prover_config
config
pr
in
let
driver
=
prover_conf
.
Whyconf
.
driver
in
let
driver
=
Whyconf
.
load_driver
(
Whyconf
.
get_main
config
)
c_env
driver
prover_conf
.
Whyconf
.
extra_drivers
in
let
driver
=
snd
(
Hprover
.
find
c
.
controller_provers
pr
)
in
let
task
=
Session_itp
.
get_task
session
pn
in
let
session_dir
=
Session_itp
.
get_dir
session
in
let
th
=
get_encapsulating_theory
session
(
APn
pn
)
in
...
...
@@ -606,14 +600,8 @@ let create_file_rel_path c pr pn =
file
let
update_edit_external_proof
c
pn
?
panid
pr
=
let
config
=
c
.
controller_config
in
let
c_env
=
c
.
controller_env
in
let
session
=
c
.
controller_session
in
let
prover_conf
=
Whyconf
.
get_prover_config
config
pr
in
let
driver
=
prover_conf
.
Whyconf
.
driver
in
let
driver
=
Whyconf
.
load_driver
(
Whyconf
.
get_main
config
)
c_env
driver
prover_conf
.
Whyconf
.
extra_drivers
in
let
driver
=
snd
(
Hprover
.
find
c
.
controller_provers
pr
)
in
let
task
=
Session_itp
.
get_task
session
pn
in
let
session_dir
=
Session_itp
.
get_dir
session
in
let
file
=
...
...
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