Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
Why3
why3
Commits
fb2fc569
Commit
fb2fc569
authored
Jan 21, 2018
by
Guillaume Melquiond
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Improve boxing of applications in Coq printer.
parent
6c65e20e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
4 deletions
+4
-4
src/printer/coq.ml
src/printer/coq.ml
+4
-4
No files found.
src/printer/coq.ml
View file @
fb2fc569
...
...
@@ -168,7 +168,7 @@ let rec print_ty info fmt ty =
begin
match
tl
with
|
[]
->
(
print_ts_real
info
)
fmt
ts
|
l
->
fprintf
fmt
"@[<hov>(%a@ %a)@]"
(
print_ts_real
info
)
ts
|
l
->
fprintf
fmt
"@[<hov
1
>(%a@ %a)@]"
(
print_ts_real
info
)
ts
(
print_list
space
(
print_ty
info
))
l
end
end
...
...
@@ -210,7 +210,7 @@ let rec print_pat info fmt p = match p.pat_node with
begin
match
query_syntax
info
.
info_syn
cs
.
ls_name
with
|
Some
s
->
syntax_arguments
s
(
print_pat
info
)
fmt
pl
|
_
when
pl
=
[]
->
(
print_ls_real
info
)
fmt
cs
|
_
->
fprintf
fmt
"(%a %a)"
|
_
->
fprintf
fmt
"
@[<hov 1>
(%a
@
%a)
@]
"
(
print_ls_real
info
)
cs
(
print_list
space
(
print_pat
info
))
pl
end
...
...
@@ -321,7 +321,7 @@ and print_tnode _opl opr info fmt t = match t.t_node with
else
fprintf
fmt
"@[<hov 1>(%a@ %a)@]"
(
print_ls_real
info
)
fs
(
print_list
space
(
print_opr_term
info
))
tl
else
fprintf
fmt
"@[<hov>
(
%a %a
:
%a)@]"
else
fprintf
fmt
"@[<hov
1>(@[<hov
>%a
@
%a
@]:@
%a)@]"
(
print_ls_real
info
)
fs
(
print_list
space
(
print_opr_term
info
))
tl
(
print_ty
info
)
(
t_type
t
)
end
...
...
@@ -376,7 +376,7 @@ and print_fnode opl opr info fmt f = match f.t_node with
|
Tapp
(
ps
,
tl
)
->
begin
match
query_syntax
info
.
info_syn
ps
.
ls_name
with
|
Some
s
->
syntax_arguments
s
(
print_opr_term
info
)
fmt
tl
|
_
->
fprintf
fmt
"(%a%a)"
(
print_ls_real
info
)
ps
|
_
->
fprintf
fmt
"
@[<hov 1>
(%a%a)
@]
"
(
print_ls_real
info
)
ps
(
print_list_pre
space
(
print_opr_term
info
))
tl
end
|
Tvar
_
|
Tconst
_
|
Teps
_
->
raise
(
FmlaExpected
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