Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
why3
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
125
Issues
125
List
Boards
Labels
Service Desk
Milestones
Merge Requests
15
Merge Requests
15
Operations
Operations
Incidents
Packages & Registries
Packages & Registries
Container Registry
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
Why3
why3
Commits
5f86c138
Commit
5f86c138
authored
Jun 29, 2012
by
Andrei Paskevich
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
add TFF0 printer
parent
55c1fc02
Changes
8
Hide whitespace changes
Inline
Side-by-side
Showing
8 changed files
with
541 additions
and
6 deletions
+541
-6
Makefile.in
Makefile.in
+6
-6
drivers/tptp-tff.drv
drivers/tptp-tff.drv
+281
-0
plugins/printer/tptp_fof.ml
plugins/printer/tptp_fof.ml
+0
-0
plugins/printer/tptp_fof.mli
plugins/printer/tptp_fof.mli
+0
-0
plugins/printer/tptp_tff.ml
plugins/printer/tptp_tff.ml
+233
-0
plugins/printer/tptp_tff.mli
plugins/printer/tptp_tff.mli
+21
-0
src/printer/print_number.ml
src/printer/print_number.ml
+0
-0
src/printer/print_number.mli
src/printer/print_number.mli
+0
-0
No files found.
Makefile.in
View file @
5f86c138
...
...
@@ -115,7 +115,7 @@ LIBGENERATED = src/util/rc.ml src/parser/lexer.ml \
src/driver/driver_parser.mli src/driver/driver_parser.ml
\
src/driver/driver_lexer.ml src/session/xml.ml
LIB_UTIL
=
stdlib exn_printer pp debug loc print_tree
print_number
\
LIB_UTIL
=
stdlib exn_printer pp debug loc print_tree
\
cmdline hashweak hashcons util sysutil rc plugin
LIB_CORE
=
ident ty term pattern decl theory task pretty
env
trans printer
...
...
@@ -137,8 +137,8 @@ LIB_TRANSFORM = simplify_recursive_definition simplify_formula \
introduction abstraction close_epsilon lift_epsilon
\
eval_match instantiate_predicate smoke_detector
LIB_PRINTER
=
alt_ergo why3printer smtv1 smtv2 coq pvs simplify gappa
\
cvc3 yices
LIB_PRINTER
=
print_number alt_ergo why3printer smtv1 smtv2 coq pvs
\
simplify gappa
cvc3 yices
LIB_SESSION
=
xml termcode session session_tools session_scheduler
...
...
@@ -260,11 +260,11 @@ PLUGGENERATED = plugins/tptp/tptp_lexer.ml \
plugins/tptp/tptp_parser.ml plugins/tptp/tptp_parser.mli
PLUG_PARSER
=
genequlin
PLUG_PRINTER
=
tptp
fo
f
PLUG_PRINTER
=
tptp
_fof tptp_tf
f
PLUG_TRANSFORM
=
PLUG_TPTP
=
tptp_ast tptp_parser tptp_typing tptp_lexer
PLUGINS
=
genequlin tptp
fo
f tptp
PLUGINS
=
genequlin tptp
_fof tptp_tf
f tptp
TPTPMODULES
=
$(
addprefix
plugins/tptp/,
$(PLUG_TPTP)
)
...
...
@@ -1422,7 +1422,7 @@ headers:
src/transform/abstraction.ml
*
\
src/transform/instantiate_predicate.ml
*
\
src/transform/simplify_formula.ml
*
\
src/
util
/print_number.ml
*
\
src/
printer
/print_number.ml
*
\
src/printer/gappa.ml
*
headache
-c
misc/headache_config.txt
-h
misc/header_jk.txt
\
src/transform/close_epsilon.ml
*
\
...
...
drivers/tptp-tff.drv
0 → 100644
View file @
5f86c138
(* Why driver for first-order tptp provers supporting TFF1 *)
printer "tptp-tff"
filename "%f-%t-%g.p"
valid "Proof found"
invalid "Completion found"
invalid "SZS status CounterSatisfiable"
timeout "Ran out of time"
(* timeout "Resource limit exceeded" *)
timeout "CPU time limit exceeded"
outofmemory "Out of Memory"
unknown "No Proof Found" ""
fail "Failure.*" "\"\\0\""
time "why3cpulimit time : %s s"
(* time "%h:%m:%s on the problem" *)
(* time "Total time[ ]*: %s s" *)
(* to be improved *)
(*transformation "simplify_recursive_definition"*)
transformation "inline_trivial"
transformation "eliminate_builtin"
transformation "eliminate_definition"
transformation "eliminate_inductive"
transformation "eliminate_algebraic"
transformation "encoding_smt"
theory BuiltIn
syntax predicate (=) "(%1 = %2)"
syntax type int "$int"
syntax type real "$real"
meta "encoding : kept" type int
meta "encoding : kept" type real
meta "eliminate_algebraic" "no_index"
meta "select_inst" "all"
meta "select_lskept" "all"
meta "select_lsinst" "all"
meta "select_kept" "all"
end
theory int.Int
syntax function zero "0"
syntax function one "1"
syntax function (+) "$sum(%1,%2)"
syntax function (-) "$difference(%1,%2)"
syntax function (*) "$product(%1,%2)"
syntax function (-_) "$uminus(%1)"
syntax predicate (<=) "$lesseq(%1,%2)"
syntax predicate (<) "$less(%1,%2)"
syntax predicate (>=) "$greatereq(%1,%2)"
syntax predicate (>) "$greater(%1,%2)"
remove prop CommutativeGroup.Comm.Comm
remove prop CommutativeGroup.Assoc.Assoc
remove prop CommutativeGroup.Unit_def
remove prop CommutativeGroup.Inv_def
remove prop Assoc.Assoc
remove prop Mul_distr
remove prop Comm.Comm
remove prop Unitary
remove prop Refl
remove prop Trans
remove prop Antisymm
remove prop Total
remove prop NonTrivialRing
remove prop CompatOrderAdd
remove prop ZeroLessOne
end
theory real.Real
syntax function zero "0.0"
syntax function one "1.0"
syntax function (+) "$sum(%1,%2)"
syntax function (-) "$difference(%1,%2)"
syntax function (*) "$product(%1,%2)"
syntax function (-_) "$uminus(%1)"
syntax function (/) "$quotient(%1,%2)"
syntax function inv "$quotient(1.0,%1)"
syntax predicate (<=) "$lesseq(%1,%2)"
syntax predicate (<) "$less(%1,%2)"
syntax predicate (>=) "$greatereq(%1,%2)"
syntax predicate (>) "$greater(%1,%2)"
remove prop CommutativeGroup.Comm.Comm
remove prop CommutativeGroup.Assoc.Assoc
remove prop CommutativeGroup.Unit_def
remove prop CommutativeGroup.Inv_def
remove prop Inverse
remove prop Assoc.Assoc
remove prop Mul_distr
remove prop Comm.Comm
remove prop Unitary
remove prop Refl
remove prop Trans
remove prop Antisymm
remove prop Total
remove prop NonTrivialRing
remove prop CompatOrderAdd
remove prop ZeroLessOne
end
theory int.EuclideanDivision
syntax function div "$quotient_e(%1,%2)"
syntax function mod "$remainder_e(%1,%2)"
remove prop Div_mod
remove prop Div_bound
remove prop Mod_bound
remove prop Mod_1
remove prop Div_1
remove prop Div_inf
remove prop Div_inf_neg
remove prop Mod_0
remove prop Div_1_left
remove prop Div_minus1_left
remove prop Mod_1_left
remove prop Mod_minus1_left
end
theory tptp.Univ
syntax type iType "$i"
meta "encoding : kept" type iType
end
theory tptp.IntTrunc
syntax function floor "$floor(%1)"
syntax function ceil "$ceil(%1)"
syntax function truncate "$truncate(%1)"
syntax function round "$round(%1)"
syntax function to_int "$to_int(%1)"
syntax predicate is_int "$is_int(%1)"
syntax predicate is_rat "$is_rat(%1)"
end
theory tptp.IntDivT
syntax function div_t "$quotient_t(%1,%2)"
syntax function mod_t "$remainder_t(%1,%2)"
end
theory tptp.IntDivF
syntax function div_f "$quotient_f(%1,%2)"
syntax function mod_f "$remainder_f(%1,%2)"
end
theory tptp.Rat
syntax type rat "$rat"
syntax function zero "0/1"
syntax function one "1/1"
syntax function (+) "$sum(%1,%2)"
syntax function (-) "$difference(%1,%2)"
syntax function (*) "$product(%1,%2)"
syntax function (-_) "$uminus(%1)"
syntax function (/) "$quotient(%1,%2)"
syntax function inv "$quotient(1.0,%1)"
syntax predicate (<=) "$lesseq(%1,%2)"
syntax predicate (<) "$less(%1,%2)"
syntax predicate (>=) "$greatereq(%1,%2)"
syntax predicate (>) "$greater(%1,%2)"
syntax function to_rat "$to_rat(%1)"
syntax predicate is_int "$is_int(%1)"
syntax predicate is_rat "$is_rat(%1)"
remove prop CommutativeGroup.Comm.Comm
remove prop CommutativeGroup.Assoc.Assoc
remove prop CommutativeGroup.Unit_def
remove prop CommutativeGroup.Inv_def
remove prop Assoc.Assoc
remove prop Mul_distr
remove prop Comm.Comm
remove prop Unitary
remove prop Refl
remove prop Trans
remove prop Antisymm
remove prop Total
remove prop NonTrivialRing
remove prop CompatOrderAdd
remove prop ZeroLessOne
meta "encoding : kept" type rat
end
theory tptp.RatTrunc
syntax function floor "$floor(%1)"
syntax function ceil "$ceil(%1)"
syntax function truncate "$truncate(%1)"
syntax function round "$round(%1)"
syntax function to_int "$to_int(%1)"
end
theory tptp.RatDivE
syntax function div "$quotient_e(%1,%2)"
syntax function mod "$remainder_e(%1,%2)"
end
theory tptp.RatDivT
syntax function div_t "$quotient_t(%1,%2)"
syntax function mod_t "$remainder_t(%1,%2)"
end
theory tptp.RatDivF
syntax function div_f "$quotient_f(%1,%2)"
syntax function mod_f "$remainder_f(%1,%2)"
end
theory tptp.Real
syntax function to_real "$to_real(%1)"
end
theory real.Truncate
syntax function floor "$floor(%1)"
syntax function ceil "$ceil(%1)"
syntax function truncate "$truncate(%1)"
end
theory tptp.RealTrunc
syntax function round "$round(%1)"
syntax function to_int "$to_int(%1)"
syntax predicate is_int "$is_int(%1)"
syntax predicate is_rat "$is_rat(%1)"
end
theory tptp.RealDivE
syntax function div "$quotient_e(%1,%2)"
syntax function mod "$remainder_e(%1,%2)"
end
theory tptp.RealDivT
syntax function div_t "$quotient_t(%1,%2)"
syntax function mod_t "$remainder_t(%1,%2)"
end
theory tptp.RealDivF
syntax function div_f "$quotient_f(%1,%2)"
syntax function mod_f "$remainder_f(%1,%2)"
end
theory tptp.IntToRat
syntax function to_rat "$to_rat(%1)"
end
theory tptp.IntToReal
syntax function to_real "$to_real(%1)"
end
theory tptp.RealToRat
syntax function to_rat "$to_rat(%1)"
end
theory tptp.RatToReal
syntax function to_real "$to_real(%1)"
end
(*
Local Variables:
mode: why
compile-command: "unset LANG; make -C .. bench"
End:
*)
plugins/printer/tptpfof.ml
→
plugins/printer/tptp
_
fof.ml
View file @
5f86c138
File moved
plugins/printer/tptpfof.mli
→
plugins/printer/tptp
_
fof.mli
View file @
5f86c138
File moved
plugins/printer/tptp_tff.ml
0 → 100644
View file @
5f86c138
(**************************************************************************)
(* *)
(* Copyright (C) 2010-2012 *)
(* François Bobot *)
(* Jean-Christophe Filliâtre *)
(* Claude Marché *)
(* Guillaume Melquiond *)
(* Andrei Paskevich *)
(* *)
(* This software is free software; you can redistribute it and/or *)
(* modify it under the terms of the GNU Library General Public *)
(* License version 2.1, with the special exception on linking *)
(* described in file LICENSE. *)
(* *)
(* This software is distributed in the hope that it will be useful, *)
(* but WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *)
(* *)
(**************************************************************************)
open
Format
open
Why3
open
Pp
open
Ident
open
Ty
open
Term
open
Decl
open
Task
open
Printer
let
ident_printer
=
let
san
=
sanitizer
char_to_alpha
char_to_alnumus
in
create_ident_printer
[]
~
sanitizer
:
san
let
pr_printer
=
let
san
=
sanitizer
char_to_lalpha
char_to_alnumus
in
create_ident_printer
[]
~
sanitizer
:
san
let
print_symbol
fmt
id
=
let
san
=
String
.
uncapitalize
in
fprintf
fmt
"%s"
(
id_unique
~
sanitizer
:
san
ident_printer
id
)
let
print_tvar
fmt
{
tv_name
=
id
}
=
let
san
=
String
.
capitalize
in
fprintf
fmt
"%s"
(
id_unique
~
sanitizer
:
san
ident_printer
id
)
let
print_var
fmt
{
vs_name
=
id
}
=
let
san
=
String
.
capitalize
in
fprintf
fmt
"%s"
(
id_unique
~
sanitizer
:
san
ident_printer
id
)
let
print_pr
fmt
pr
=
fprintf
fmt
"%s"
(
id_unique
pr_printer
pr
.
pr_name
)
let
forget_var
v
=
forget_id
ident_printer
v
.
vs_name
let
forget_tvar
v
=
forget_id
ident_printer
v
.
tv_name
type
info
=
{
info_syn
:
syntax_map
;
}
let
rec
print_type
info
fmt
ty
=
match
ty
.
ty_node
with
|
Tyvar
tv
->
print_tvar
fmt
tv
|
Tyapp
(
ts
,
tl
)
->
begin
match
query_syntax
info
.
info_syn
ts
.
ts_name
with
|
Some
s
->
syntax_arguments
s
(
print_type
info
)
fmt
tl
|
None
->
begin
match
tl
with
|
[]
->
print_symbol
fmt
ts
.
ts_name
|
_
->
fprintf
fmt
"@[%a(%a)@]"
print_symbol
ts
.
ts_name
(
print_list
comma
(
print_type
info
))
tl
end
end
let
rec
print_app
info
fmt
ls
tl
oty
=
match
query_syntax
info
.
info_syn
ls
.
ls_name
with
|
Some
s
->
syntax_arguments
s
(
print_term
info
)
fmt
tl
|
None
->
let
sbs
=
ls_app_inst
ls
tl
oty
in
if
Mtv
.
is_empty
sbs
&&
tl
=
[]
then
print_symbol
fmt
ls
.
ls_name
else
begin
let
cm
=
if
Mtv
.
is_empty
sbs
||
tl
=
[]
then
""
else
", "
in
fprintf
fmt
"%a(%a%s%a)"
print_symbol
ls
.
ls_name
(
print_iter2
Mtv
.
iter
comma
nothing
nothing
(
print_type
info
))
sbs
cm
(
print_list
comma
(
print_term
info
))
tl
end
and
print_term
info
fmt
t
=
match
t
.
t_node
with
|
Tvar
v
->
print_var
fmt
v
|
Tapp
(
ls
,
tl
)
->
print_app
info
fmt
ls
tl
t
.
t_ty
|
Tconst
c
->
let
number_format
=
{
Print_number
.
long_int_support
=
true
;
Print_number
.
dec_int_support
=
Print_number
.
Number_default
;
Print_number
.
hex_int_support
=
Print_number
.
Number_unsupported
;
Print_number
.
oct_int_support
=
Print_number
.
Number_unsupported
;
Print_number
.
bin_int_support
=
Print_number
.
Number_unsupported
;
Print_number
.
def_int_support
=
Print_number
.
Number_unsupported
;
Print_number
.
dec_real_support
=
Print_number
.
Number_default
;
Print_number
.
hex_real_support
=
Print_number
.
Number_unsupported
;
Print_number
.
frac_real_support
=
Print_number
.
Number_unsupported
;
Print_number
.
def_real_support
=
Print_number
.
Number_unsupported
;
}
in
Print_number
.
print
number_format
fmt
c
|
Tlet
(
t1
,
tb
)
->
let
v
,
t2
=
t_open_bound
tb
in
fprintf
fmt
"$let_tt(%a@ =@ %a,@ %a)"
print_symbol
v
.
vs_name
(
print_term
info
)
t1
(
print_term
info
)
t2
;
forget_var
v
|
Tif
(
f1
,
t1
,
t2
)
->
fprintf
fmt
"$ite_t(%a,@ %a,@ %a)"
(
print_fmla
info
)
f1
(
print_term
info
)
t1
(
print_term
info
)
t2
|
Tcase
_
->
unsupportedTerm
t
"TPTP does not support pattern matching, use eliminate_algebraic"
|
Teps
_
->
unsupportedTerm
t
"TPTP does not support epsilon-terms"
|
Tquant
_
|
Tbinop
_
|
Tnot
_
|
Ttrue
|
Tfalse
->
raise
(
TermExpected
t
)
and
print_fmla
info
fmt
f
=
match
f
.
t_node
with
|
Tapp
(
ls
,
tl
)
->
print_app
info
fmt
ls
tl
f
.
t_ty
|
Tbinop
(
Tand
,
f1
,
f2
)
->
fprintf
fmt
"(%a@ & %a)"
(
print_fmla
info
)
f1
(
print_fmla
info
)
f2
|
Tbinop
(
Tor
,
f1
,
f2
)
->
fprintf
fmt
"(%a@ | %a)"
(
print_fmla
info
)
f1
(
print_fmla
info
)
f2
|
Tbinop
(
Timplies
,
f1
,
f2
)
->
fprintf
fmt
"(%a@ => %a)"
(
print_fmla
info
)
f1
(
print_fmla
info
)
f2
|
Tbinop
(
Tiff
,
f1
,
f2
)
->
fprintf
fmt
"(%a@ <=> %a)"
(
print_fmla
info
)
f1
(
print_fmla
info
)
f2
|
Tnot
f
->
fprintf
fmt
"~@ (%a)"
(
print_fmla
info
)
f
|
Ttrue
->
fprintf
fmt
"$true"
|
Tfalse
->
fprintf
fmt
"$false"
|
Tquant
(
q
,
fq
)
->
let
q
=
match
q
with
Tforall
->
"!"
|
Texists
->
"?"
in
let
vl
,
_tl
,
f
=
t_open_quant
fq
in
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
(
print_list
comma
print_vsty
)
vl
(
print_fmla
info
)
f
;
List
.
iter
forget_var
vl
|
Tlet
(
t1
,
tb
)
->
let
v
,
t2
=
t_open_bound
tb
in
fprintf
fmt
"$let_tf(%a@ =@ %a,@ %a)"
print_symbol
v
.
vs_name
(
print_term
info
)
t1
(
print_fmla
info
)
t2
;
forget_var
v
|
Tif
(
f1
,
t1
,
t2
)
->
fprintf
fmt
"$ite_f(%a,@ %a,@ %a)"
(
print_fmla
info
)
f1
(
print_fmla
info
)
t1
(
print_fmla
info
)
t2
|
Tcase
_
->
unsupportedTerm
f
"TPTP does not support pattern matching, use eliminate_algebraic"
|
Tvar
_
|
Tconst
_
|
Teps
_
->
raise
(
FmlaExpected
f
)
let
print_tvarg
fmt
tv
=
fprintf
fmt
"%a : $tType"
print_tvar
tv
let
print_tvargs
fmt
tvs
=
print_iter1
Stv
.
iter
comma
print_tvarg
fmt
tvs
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
;
Stv
.
iter
forget_tvar
tvs
let
print_decl
info
fmt
d
=
match
d
.
d_node
with
|
Dtype
{
ts_def
=
Some
_
}
->
()
|
Dtype
ts
when
query_syntax
info
.
info_syn
ts
.
ts_name
<>
None
->
()
|
Dtype
ts
->
let
print_arg
fmt
_
=
fprintf
fmt
"$tType"
in
let
print_sig
fmt
ts
=
match
ts
.
ts_args
with
|
[]
->
fprintf
fmt
"$tType"
|
[
_
]
->
fprintf
fmt
"$tType >@ $tType"
|
tl
->
fprintf
fmt
"(%a) >@ $tType"
(
print_list
star
print_arg
)
tl
in
fprintf
fmt
"@[<hov 2>tff(%s, type,@ %a:@ %a).@]@
\n
@
\n
"
(
id_unique
pr_printer
ts
.
ts_name
)
print_symbol
ts
.
ts_name
print_sig
ts
|
Dparam
ls
when
query_syntax
info
.
info_syn
ls
.
ls_name
<>
None
->
()
|
Dparam
ls
->
let
print_type
=
print_type
info
in
let
print_val
fmt
=
function
|
Some
ty
->
print_type
fmt
ty
|
None
->
fprintf
fmt
"$o"
in
let
print_sig
fmt
ls
=
match
ls
.
ls_args
with
|
[]
->
print_val
fmt
ls
.
ls_value
|
[
ty
]
->
fprintf
fmt
"%a >@ %a"
print_type
ty
print_val
ls
.
ls_value
|
tl
->
fprintf
fmt
"(%a) >@ %a"
(
print_list
star
print_type
)
tl
print_val
ls
.
ls_value
in
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
;
Stv
.
iter
forget_tvar
tvs
in
fprintf
fmt
"@[<hov 2>tff(%s, type,@ %a:@ %a).@]@
\n
@
\n
"
(
id_unique
pr_printer
ls
.
ls_name
)
print_symbol
ls
.
ls_name
print_sig
ls
|
Ddata
_
->
unsupportedDecl
d
"TPTP does not support algebraic datatypes, use eliminate_algebraic"
|
Dlogic
_
->
unsupportedDecl
d
"Definitions are not supported, use eliminate_definition"
|
Dind
_
->
unsupportedDecl
d
"TPTP does not support inductive predicates, use eliminate_inductive"
|
Dprop
(
Paxiom
,
pr
,
_
)
when
Mid
.
mem
pr
.
pr_name
info
.
info_syn
->
()
|
Dprop
(
Paxiom
,
pr
,
f
)
->
fprintf
fmt
"@[<hov 2>tff(%a, axiom,@ %a).@]@
\n
@
\n
"
print_pr
pr
(
print_fmla
info
)
f
|
Dprop
(
Pgoal
,
pr
,
f
)
->
fprintf
fmt
"@[<hov 2>tff(%a, conjecture,@ %a).@]@
\n
"
print_pr
pr
(
print_fmla
info
)
f
|
Dprop
((
Plemma
|
Pskip
)
,
_
,
_
)
->
assert
false
let
print_decl
info
fmt
=
catch_unsupportedDecl
(
print_decl
info
fmt
)
let
print_task
_env
pr
thpr
?
old
:_
fmt
task
=
forget_all
ident_printer
;
forget_all
pr_printer
;
print_prelude
fmt
pr
;
print_th_prelude
task
fmt
thpr
;
let
info
=
{
info_syn
=
get_syntax_map
task
}
in
fprintf
fmt
"@[%a@]@."
(
print_list
nothing
(
print_decl
info
))
(
Task
.
task_decls
task
)
let
()
=
register_printer
"tptp-tff"
print_task
plugins/printer/tptp_tff.mli
0 → 100644
View file @
5f86c138
(**************************************************************************)
(* *)
(* Copyright (C) 2010-2012 *)
(* François Bobot *)
(* Jean-Christophe Filliâtre *)
(* Claude Marché *)
(* Guillaume Melquiond *)
(* Andrei Paskevich *)
(* *)
(* This software is free software; you can redistribute it and/or *)
(* modify it under the terms of the GNU Library General Public *)
(* License version 2.1, with the special exception on linking *)
(* described in file LICENSE. *)
(* *)
(* This software is distributed in the hope that it will be useful, *)
(* but WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *)
(* *)
(**************************************************************************)
(** a printer targeting simply typed first-order logic tptp syntax *)
src/
util
/print_number.ml
→
src/
printer
/print_number.ml
View file @
5f86c138
File moved
src/
util
/print_number.mli
→
src/
printer
/print_number.mli
View file @
5f86c138
File moved
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