Skip to content

Commit 3d7e939

Browse files
committed
remove stray comment in #1157
1 parent f37b652 commit 3d7e939

File tree

1 file changed

+0
-1
lines changed

1 file changed

+0
-1
lines changed

translator/ml_translatorLib.sml

-1
Original file line numberDiff line numberDiff line change
@@ -1755,7 +1755,6 @@ val th = inv_defs |> map #2 |> hd
17551755
val (x1,x2) = cases_th |> CONJUNCTS |> hd |> concl |> repeat (snd o dest_forall)
17561756
|> dest_eq
17571757
val case_const = x1 |> repeat rator
1758-
(* val _ = persistent_skip_case_const case_const *)
17591758
val ty1 = case_const |> type_of |> domain
17601759
val ty2 = x2 |> type_of
17611760
val cases_th = INST_TYPE [ty2 |-> mk_vartype "'return_type"] cases_th

0 commit comments

Comments
 (0)