Skip to content
GitLab
Menu
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
6d1cd5f1
Commit
6d1cd5f1
authored
Jun 30, 2012
by
Andrei Paskevich
Browse files
tptp_tff: minor fixes
parent
5f86c138
Changes
1
Hide whitespace changes
Inline
Side-by-side
plugins/printer/tptp_tff.ml
View file @
6d1cd5f1
...
...
@@ -143,7 +143,7 @@ and print_fmla info fmt f = match f.t_node with
let
print_vsty
fmt
vs
=
fprintf
fmt
"%a:@,%a"
print_var
vs
(
print_type
info
)
vs
.
vs_ty
in
fprintf
fmt
"%s
[%a]:@ %a"
q
fprintf
fmt
"%s[%a]:@ %a"
q
(
print_list
comma
print_vsty
)
vl
(
print_fmla
info
)
f
;
List
.
iter
forget_var
vl
|
Tlet
(
t1
,
tb
)
->
...
...
@@ -166,7 +166,7 @@ let star fmt _ = fprintf fmt " *@ "
let
print_fmla
info
fmt
f
=
let
tvs
=
t_ty_freevars
Stv
.
empty
f
in
if
Stv
.
is_empty
tvs
then
print_fmla
info
fmt
f
else
fprintf
fmt
"!
>
[%a]:@ %a"
print_tvargs
tvs
(
print_fmla
info
)
f
;
fprintf
fmt
"![%a]:@ %a"
print_tvargs
tvs
(
print_fmla
info
)
f
;
Stv
.
iter
forget_tvar
tvs
let
print_decl
info
fmt
d
=
match
d
.
d_node
with
...
...
@@ -197,8 +197,12 @@ let print_decl info fmt d = match d.d_node with
let
print_sig
fmt
ls
=
let
tvs
=
List
.
fold_left
ty_freevars
Stv
.
empty
ls
.
ls_args
in
let
tvs
=
oty_freevars
tvs
ls
.
ls_value
in
if
Stv
.
is_empty
tvs
then
print_sig
fmt
ls
else
fprintf
fmt
"!> [%a]:@ %a"
print_tvargs
tvs
print_sig
ls
;
if
Stv
.
is_empty
tvs
then
print_sig
fmt
ls
else
if
ls
.
ls_args
=
[]
then
fprintf
fmt
"!>[%a]:@ %a"
print_tvargs
tvs
print_sig
ls
else
fprintf
fmt
"!>[%a]:@ (%a)"
print_tvargs
tvs
print_sig
ls
;
Stv
.
iter
forget_tvar
tvs
in
fprintf
fmt
"@[<hov 2>tff(%s, type,@ %a:@ %a).@]@
\n
@
\n
"
...
...
Write
Preview
Supports
Markdown
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