Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Why3
why3
Commits
4842b887
Commit
4842b887
authored
Jan 08, 2013
by
Jean-Christophe Filliâtre
Browse files
fixed Coq tactic (hopefully fixing 'make bench')
parent
2e592dc1
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/coq-tactic/why3tac.ml
View file @
4842b887
...
...
@@ -1081,7 +1081,7 @@ let is_goal s =
n
>=
11
&&
String
.
sub
s
0
11
=
"Unnamed_thm"
||
n
>=
9
&&
String
.
sub
s
(
n
-
9
)
9
=
"_admitted"
let
tr_
top_decl
env
r
s
=
let
tr_
reference
env
r
s
=
let
dep
=
empty_dep
()
in
let
bv
=
Idmap
.
empty
in
let
id
=
Ident
.
id_fresh
s
in
...
...
@@ -1115,12 +1115,13 @@ let tr_top_decl env r s =
commands to select modules and/or constants to be translated/not
translated *)
let
rec
is_acceptable_dirpath
=
function
|
[
id
]
->
let
s
=
string_of_id
id
in
s
=
"Top"
||
s
=
"Why3"
|
[
id
]
->
let
s
=
string_of_id
id
in
s
<>
"Coq"
(*s
= "Top" || s = "Why3"
*)
|
[]
->
false
|
_
::
p
->
is_acceptable_dirpath
p
let
why3_builtin
=
[
id_of_string
"BuiltIn"
;
id_of_string
"Why3"
]
let
is_acceptable_dirpath
dp
=
dp
<>
why3_builtin
&&
is_acceptable_dirpath
dp
let
is_acceptable_dirpath
dp
=
dp
<>
why3_builtin
&&
is_acceptable_dirpath
dp
let
tr_kernel_name
kn
=
(* Format.eprintf " kn = %s@." (string_of_kn kn); *)
...
...
@@ -1135,7 +1136,7 @@ let tr_kernel_name kn =
let
tr_top_constant
env
c
=
match
tr_kernel_name
(
user_con
c
)
with
|
Some
s
->
(* Format.eprintf "tr_top_constant %s@." (string_of_con c); *)
tr_
top_decl
env
(
ConstRef
c
)
s
tr_
reference
env
(
ConstRef
c
)
s
|
None
->
()
let
tr_top_decls
()
=
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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