Commit be7add55 authored by David Hauzar's avatar David Hauzar

Generating model_trace labels for terms with model_projected label.

parent 4748a76d
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment