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
3008575a
Commit
3008575a
authored
Sep 02, 2010
by
MARCHE Claude
Browse files
some fixes for coq output
parent
88e0512c
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/printer/coq.ml
View file @
3008575a
...
...
@@ -177,7 +177,7 @@ let print_binop fmt = function
|
Fimplies
->
fprintf
fmt
"->"
|
Fiff
->
fprintf
fmt
"<->"
let
print_label
=
Pretty
.
print_labe
l
let
print_label
fmt
(
l
,_
)
=
fprintf
fmt
"(*%s*)"
l
let
protect_on
x
s
=
if
x
then
"("
^^
s
^^
")"
else
s
...
...
@@ -356,8 +356,10 @@ let print_logic_decl info fmt (ls,ld) =
if
Stv
.
is_empty
params
then
fprintf
fmt
"@
\n
"
else
fprintf
fmt
"Implicit Arguments %a.@
\n
@
\n
"
print_ls
ls
let
b
=
ls
.
ls_args
=
[]
in
if
b
then
fprintf
fmt
"Set Contextual Implicit.@
\n
"
;
fprintf
fmt
"Implicit Arguments %a.@
\n
"
print_ls
ls
;
if
b
then
fprintf
fmt
"Unset Contextual Implicit.@
\n
"
let
print_logic_decl
info
fmt
d
=
...
...
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