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
4737eb90
Commit
4737eb90
authored
Oct 12, 2015
by
MARCHE Claude
Browse files
Try why3: fix order of lemmas and functions in a theory
parent
32a60ef7
Changes
2
Hide whitespace changes
Inline
Side-by-side
.gitignore
View file @
4737eb90
...
...
@@ -161,6 +161,7 @@ pvsbin/
/lib/isabelle/Why3_Number.thy
/lib/isabelle/why3.ML
/lib/isabelle/last_build
/lib/isabelle/bv
# /src/driver/
/src/driver/driver_lexer.ml
...
...
src/trywhy3/trywhy3.ml
View file @
4737eb90
...
...
@@ -132,7 +132,7 @@ let why3_prove theories =
Stdlib
.
Mstr
.
fold
(
fun
thname
th
acc
->
let
tasks
=
Task
.
split_theory
th
None
None
in
let
tasks
=
List
.
map
let
tasks
=
List
.
rev_
map
(
fun
t
->
let
(
id
,
expl
,_
)
=
Termcode
.
goal_expl_task
~
root
:
true
t
in
let
expl
=
match
expl
with
...
...
@@ -278,10 +278,12 @@ let add_why3_cmd buttonname f input_lang =
(
fun
_ev
->
let
global
=
Js
.
Unsafe
.
global
in
let
editor
=
Js
.
Unsafe
.
get
global
(
Js
.
string
"editor"
)
in
let
lang
=
let
lang
=
"en"
(*
Js.to_string
(Js.Unsafe.meth_call editor "getAttribute"
[| Js.Unsafe.inject (Js.string "lang") |])
*)
in
let
code
=
Js
.
to_string
(
Js
.
Unsafe
.
meth_call
editor
"getValue"
[
|
|
])
in
log
(
"Why3 is running, lang = "
^
lang
);
...
...
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