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
b6331a81
Commit
b6331a81
authored
Nov 30, 2011
by
MARCHE Claude
Browse files
details, related to hi-lite meeting
parent
00258be3
Changes
3
Hide whitespace changes
Inline
Side-by-side
ROADMAP
View file @
b6331a81
...
...
@@ -10,6 +10,11 @@
* A true Jessie3 front-end ?
* Why3ML
** Fast WP a la Leino
** assert qui ne donne pas une hypothese dans la suite -> "check"
also: in a black box
* traceability: Partially done
(Claude)
DONE: traceability des hyp comme path dans le prog (depuis
...
...
src/ide/replay.ml
View file @
b6331a81
...
...
@@ -28,7 +28,6 @@ let opt_stats = ref true
let
opt_latex
=
ref
""
let
opt_latex2
=
ref
""
let
opt_longtable
=
ref
false
let
opt_html
=
ref
""
let
opt_force
=
ref
false
let
opt_smoke
=
ref
Session
.
SD_None
...
...
@@ -63,9 +62,6 @@ let spec = Arg.align [
(
"-longtable"
,
Arg
.
Set
opt_longtable
,
" produce latex statistics using longtable package"
)
;
(
"-html"
,
Arg
.
Set_string
opt_html
,
" [Dir_output] produce html statistics"
)
;
]
let
version_msg
=
Format
.
sprintf
"Why3 replayer, version %s (build date: %s)"
...
...
@@ -460,7 +456,7 @@ let rec goal_latex2_stat fmt prov depth depth_max subgoal g =
if
Hashtbl
.
length
tr
>
0
then
begin
if
(
Hashtbl
.
length
proofs
==
0
)
then
fprintf
fmt
"&
\\
multicolumn{%d}{
|
c|}{}
\\\\
@."
(
List
.
length
prov
);
fprintf
fmt
"&
\\
multicolumn{%d}{c|}{}
\\\\
@."
(
List
.
length
prov
);
Hashtbl
.
iter
(
fun
_st
tr
->
let
goals
=
tr
.
M
.
subgoals
in
let
_
=
List
.
fold_left
(
fun
subgoal
g
->
...
...
src/transform/smoke_detector.ml
View file @
b6331a81
...
...
@@ -35,6 +35,9 @@ let top = create t_not
let
rec
neg
f
=
match
f
.
t_node
with
|
Tbinop
(
Timplies
,
f1
,
f2
)
->
t_and
f1
(
neg
f2
)
(* Would show too much smoke ?
| Tbinop (Timplies,f1,f2) -> t_implies f1 (neg f2)
*)
|
Tquant
(
Tforall
,
fq
)
->
let
vsl
,_
trl
,
f
=
t_open_quant
fq
in
t_forall_close
vsl
_trl
(
neg
f
)
...
...
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