Commit 73c352e9 authored by Martin Clochard's avatar Martin Clochard

byso: case_split label

parent 5a3d7916
......@@ -105,7 +105,7 @@ type split_ret = {
let stop_split = Ident.create_label "stop_split"
let compiled = Ident.create_label "split_goal: compiled match"
let case_label = Ident.create_label "case"
let case_label = Ident.create_label "case_split"
let stop f = Slab.mem stop_split f.t_label
let asym f = Slab.mem Term.asym_label f.t_label
......@@ -342,7 +342,7 @@ let rec split_core sp f =
let full_split kn = {
right_only = false;
byso_split = false;
side_split = false;
side_split = true;
stop_split = false;
asym_split = true;
comp_match = kn;
......
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