Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Why3
why3
Commits
0cb14a43
Commit
0cb14a43
authored
Apr 04, 2014
by
Martin Clochard
Browse files
[opaqueness] fix a bug with disappearing type variables in cloning
parent
84261ee6
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/core/theory.ml
View file @
0cb14a43
...
...
@@ -521,6 +521,9 @@ let cl_find_ls cl ls =
let
id
=
id_clone
ls
.
ls_name
in
let
ta'
=
List
.
map
(
cl_trans_ty
cl
)
ls
.
ls_args
in
let
vt'
=
Opt
.
map
(
cl_trans_ty
cl
)
ls
.
ls_value
in
let
stv
=
Opt
.
fold
ty_freevars
Stv
.
empty
vt'
in
let
stv
=
List
.
fold_left
ty_freevars
stv
ta'
in
let
opaque
=
Stv
.
diff
opaque
stv
in
let
ls'
=
create_lsymbol
~
opaque
~
constr
id
ta'
vt'
in
cl
.
ls_table
<-
Mls
.
add
ls
ls'
cl
.
ls_table
;
ls'
...
...
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