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
119
Issues
119
List
Boards
Labels
Service Desk
Milestones
Merge Requests
16
Merge Requests
16
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
68385317
Commit
68385317
authored
Oct 03, 2014
by
Martin Clochard
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Renamed transformation curry into prop_curry
parent
92eb6f5d
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
6 additions
and
7 deletions
+6
-7
Makefile.in
Makefile.in
+1
-1
src/transform/prop_curry.ml
src/transform/prop_curry.ml
+5
-6
No files found.
Makefile.in
View file @
68385317
...
@@ -156,7 +156,7 @@ LIB_TRANSFORM = simplify_formula inlining split_goal induction \
...
@@ -156,7 +156,7 @@ LIB_TRANSFORM = simplify_formula inlining split_goal induction \
introduction abstraction close_epsilon lift_epsilon
\
introduction abstraction close_epsilon lift_epsilon
\
eliminate_epsilon
\
eliminate_epsilon
\
eval_match instantiate_predicate smoke_detector
\
eval_match instantiate_predicate smoke_detector
\
reduction_engine compute induction_pr curry
reduction_engine compute induction_pr
prop_
curry
LIB_PRINTER
=
alt_ergo why3printer smtv1 smtv2 coq pvs isabelle
\
LIB_PRINTER
=
alt_ergo why3printer smtv1 smtv2 coq pvs isabelle
\
simplify gappa cvc3 yices mathematica
simplify gappa cvc3 yices mathematica
...
...
src/transform/curry.ml
→
src/transform/
prop_
curry.ml
View file @
68385317
open
Term
open
Term
open
Decl
open
Decl
let
rec
curry
t
=
match
t
.
t_node
with
let
rec
curry
t
=
match
t
.
t_node
with
|
Tbinop
(
Timplies
,
lhs
,
rhs
)
->
expand
t
lhs
(
curry
rhs
)
|
Tbinop
(
Timplies
,
lhs
,
rhs
)
->
expand
t
lhs
(
curry
rhs
)
|
_
->
t_map
curry
t
|
_
->
t_map
curry
t
...
@@ -10,11 +10,10 @@ and expand orig l r = match l.t_node with
...
@@ -10,11 +10,10 @@ and expand orig l r = match l.t_node with
|
Tbinop
(
Tand
,
a
,
b
)
->
expand
orig
a
(
expand
orig
b
r
)
|
Tbinop
(
Tand
,
a
,
b
)
->
expand
orig
a
(
expand
orig
b
r
)
|
_
->
t_label_copy
orig
(
t_implies
(
curry
l
)
r
)
|
_
->
t_label_copy
orig
(
t_implies
(
curry
l
)
r
)
let
curry
=
Trans
.
goal
(
fun
pr
t
->
[
create_prop_decl
Pgoal
pr
(
curry
t
)])
let
curry
=
Trans
.
goal
(
fun
pr
t
->
[
create_prop_decl
Pgoal
pr
(
curry
t
)])
let
()
=
let
()
=
Trans
.
register_transform
"curry"
curry
Trans
.
register_transform
"prop_curry"
curry
~
desc
:
"Currify."
~
desc
:
"Transform@ conjunctions@ in@ implication@ premises@ into@ \
sequences@ of@ premises."
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