Commit 194e5cd4 authored by sylvain dailler's avatar sylvain dailler
parents 16c786ef 111d5610
......@@ -107,6 +107,7 @@ let trivial tl =
let add vs t = match t.t_node with
| Tvar v when Mvs.mem v vs -> raise Util.FoldSkip
| Tvar v -> Svs.add v vs
| Teps _ -> raise Util.FoldSkip
| _ when t_closed t -> vs
| _ -> raise Util.FoldSkip
in
......
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