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
3a94a2d7
Commit
3a94a2d7
authored
Apr 02, 2015
by
Kim Nguyễn
Browse files
export Iter.compute in types.mli
parent
5d472f2b
Changes
2
Hide whitespace changes
Inline
Side-by-side
types/types.ml
View file @
3a94a2d7
...
...
@@ -1713,7 +1713,7 @@ module Iter =
let
acc
=
fold
bdd
t
acc
in
cup
acc
let
f
=
compute
end
module
Variable
=
...
...
types/types.mli
View file @
3a94a2d7
...
...
@@ -172,6 +172,20 @@ module Iter : sig
val
map
:
?
abs
:
(
bool
->
bool
)
->
(
var_type
->
t
->
t
)
->
t
->
t
val
iter
:
?
abs
:
(
bool
->
unit
)
->
(
var_type
->
t
->
unit
)
->
t
->
unit
val
fold
:
?
abs
:
(
bool
->
'
a
->
'
a
)
->
(
var_type
->
t
->
'
a
->
'
a
)
->
t
->
'
a
->
'
a
val
compute
:
default
:
'
a
->
?
cup
:
(
'
a
list
->
'
a
)
->
?
cap
:
(
'
a
list
->
'
a
)
->
?
neg
:
(
'
a
->
'
a
)
->
?
var
:
(
Var
.
t
->
'
a
)
->
?
atoms
:
(
Atoms
.
t
->
'
a
)
->
?
ints
:
(
Intervals
.
t
->
'
a
)
->
?
chars
:
(
Chars
.
t
->
'
a
)
->
?
times
:
((
Node
.
t
*
Node
.
t
)
->
'
a
)
->
?
xml
:
((
Node
.
t
*
Node
.
t
)
->
'
a
)
->
?
arrow
:
((
Node
.
t
*
Node
.
t
)
->
'
a
)
->
?
record
:
((
bool
*
Node
.
t
Ident
.
LabelMap
.
map
)
->
'
a
)
->
?
abstract
:
(
Abstracts
.
t
->
'
a
)
->
?
absent
:
(
bool
->
'
a
)
->
t
->
'
a
end
(** Positive systems and least solutions **)
...
...
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