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
be7add55
Commit
be7add55
authored
Aug 11, 2015
by
David Hauzar
Browse files
Generating model_trace labels for terms with model_projected label.
parent
4748a76d
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/parser/parser.mly
View file @
be7add55
...
...
@@ -36,12 +36,14 @@ end
let
floc
s
e
=
Loc
.
extract
(
s
,
e
)
let
model_label
=
Ident
.
create_label
"model"
let
model_projected
=
Ident
.
create_label
"model_projected"
let
is_model_label
l
=
match
l
with
|
Lpos
_
->
false
|
Lstr
lab
->
lab
=
model_label
(
lab
=
model_label
)
||
(
lab
=
model_projected
)
let
model_lab_present
labels
=
try
...
...
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