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
cduce
cduce
Commits
e174dcd5
Commit
e174dcd5
authored
Aug 19, 2014
by
Pietro Abate
Browse files
remove unused argument from Tallying.CS.singleton
parent
5bcd5da0
Changes
2
Hide whitespace changes
Inline
Side-by-side
types/types.ml
View file @
e174dcd5
...
...
@@ -3131,7 +3131,7 @@ module Tallying = struct
type
sl
=
sigma
list
let
singleton
_delta
c
=
let
singleton
c
=
let
constr
=
match
c
with
|
Pos
(
v
,
s
)
->
M
.
singleton
v
(
empty
,
s
)
...
...
@@ -3187,28 +3187,28 @@ module Tallying = struct
let
single_arrow
=
single_aux
(
fun
p
->
{
empty
with
arrow
=
BoolPair
.
atom
(
`Atm
p
)
})
(* check if there exists a toplevel var
a
ible : fun (pos,neg) *)
(* check if there exists a toplevel vari
a
ble : fun (pos,neg) *)
let
toplevel
delta
single
norm_rec
mem
p
n
=
match
(
p
,
n
)
with
|
([]
,
(
`Var
x
)
::
neg
)
->
let
t
=
single
(
false
,
x
,
[]
,
neg
)
in
CS
.
singleton
delta
(
Neg
(
t
,
`Var
x
))
CS
.
singleton
(
Neg
(
t
,
`Var
x
))
|
((
`Var
x
)
::
pos
,
[]
)
->
let
t
=
single
(
true
,
x
,
pos
,
[]
)
in
CS
.
singleton
delta
(
Pos
(
`Var
x
,
t
))
CS
.
singleton
(
Pos
(
`Var
x
,
t
))
|
((
`Var
x
)
::
pos
,
(
`Var
y
)
::
neg
)
->
if
Var
.
compare
(
`Var
x
)
(
`Var
y
)
<
0
then
let
t
=
single
(
true
,
x
,
pos
,
n
)
in
CS
.
singleton
delta
(
Pos
(
`Var
x
,
t
))
CS
.
singleton
(
Pos
(
`Var
x
,
t
))
else
let
t
=
single
(
false
,
y
,
p
,
neg
)
in
CS
.
singleton
delta
(
Neg
(
t
,
`Var
y
))
CS
.
singleton
(
Neg
(
t
,
`Var
y
))
|
([
`Atm
a
]
,
(
`Var
x
)
::
neg
)
->
let
t
=
single
(
false
,
x
,
p
,
neg
)
in
CS
.
singleton
delta
(
Neg
(
t
,
`Var
x
))
CS
.
singleton
(
Neg
(
t
,
`Var
x
))
|
([
`Atm
t
]
,
[]
)
->
norm_rec
(
t
,
delta
,
mem
)
|_,_
->
assert
false
...
...
@@ -3230,7 +3230,7 @@ module Tallying = struct
if
Var
.
Set
.
mem
v
delta
then
CS
.
unsat
else
let
s
=
if
p
then
(
Pos
(
v
,
empty
))
else
(
Neg
(
any
,
v
))
in
CS
.
singleton
delta
s
CS
.
singleton
s
(* if there are no vars, and it is not empty then unsat *)
end
else
if
no_var
t
then
CS
.
unsat
else
begin
...
...
types/types.mli
View file @
e174dcd5
...
...
@@ -418,7 +418,7 @@ module Tallying : sig
val
pp_sl
:
Format
.
formatter
->
sl
->
unit
(* val merge : m -> m -> m *)
val
singleton
:
Var
.
Set
.
t
->
constr
->
s
val
singleton
:
constr
->
s
val
sat
:
s
val
unsat
:
s
val
union
:
s
->
s
->
s
...
...
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