Skip to content

Commit 7db5cb1

Browse files
authored
Merge pull request #124 from ppedrot/case-info-rm-tags
Adapt w.r.t. rocq-prover/rocq#18996.
2 parents 0e58667 + 22a5700 commit 7db5cb1

File tree

2 files changed

+2
-13
lines changed

2 files changed

+2
-13
lines changed

src/debug.ml

Lines changed: 1 addition & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -106,15 +106,10 @@ let debug_case_info flags ci =
106106
let ndecls = String.concat ";" (List.map string_of_int (Array.to_list ci.ci_cstr_ndecls)) in
107107
let nargs = String.concat ";" (List.map string_of_int (Array.to_list ci.ci_cstr_nargs)) in
108108
let pp_info x =
109-
let ind_tags = String.concat ";" (List.map string_of_bool x.ind_tags) in
110-
let cstr_tags =
111-
String.concat "," (List.map (fun tags -> String.concat ";" (List.map string_of_bool tags))
112-
(Array.to_list x.cstr_tags))
113-
in
114109
let string_of_style = match x.style with
115110
LetStyle -> "LetStyle" | IfStyle -> "IfStyle" | LetPatternStyle -> "LetPatternStyle" | MatchStyle -> "MatchStyle" | RegularStyle -> "RegularStyle"
116111
in
117-
Printf.sprintf "ind_tags = %s, cstr_tags = %s, style = %s" ind_tags cstr_tags string_of_style
112+
Printf.sprintf "style = %s" string_of_style
118113
in
119114
debug_string flags
120115
(Printf.sprintf "CASEINFO:inductive = %s.\nparam = %d.\nndecls = %s.\nnargs = %s.\npp_info = %s\n.EOFCASEINFO"

src/parametricity.ml

Lines changed: 1 addition & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -553,13 +553,7 @@ and translate_case_info order env ci =
553553
}
554554

555555
and translate_case_printing order env cp =
556-
let translate_bool_list l =
557-
List.flatten (List.map (fun x -> range (fun _ -> x) (order + 1)) l)
558-
in
559-
{
560-
ind_tags = (range (fun _ -> false) order) @ translate_bool_list cp.ind_tags;
561-
cstr_tags = Array.map translate_bool_list cp.cstr_tags;
562-
style = translate_style cp.style }
556+
{ style = translate_style cp.style }
563557

564558
and translate_style x = x
565559

0 commit comments

Comments
 (0)