Commit 61987f02 authored by Martin Clochard's avatar Martin Clochard

byso: refonte de split (match reste a faire)

parent a4aad230
......@@ -324,7 +324,7 @@ let rec dterm uc gvars denv {term_desc = desc; term_loc = loc} =
| Ptree.Timplies -> k DTimplies
| Ptree.Tiff -> k DTiff
| Ptree.Tby -> DTbinop (DTimplies, et (), e1)
| Ptree.Tso -> DTbinop (DTand, e1,et ())
| Ptree.Tso -> DTbinop (DTand, e1, et ())
end
| Ptree.Tquant (q, uqu, trl, e1) ->
let qvl = List.map (quant_var uc) uqu in
......
This diff is collapsed.
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