We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent f37b652 commit 3d7e939Copy full SHA for 3d7e939
translator/ml_translatorLib.sml
@@ -1755,7 +1755,6 @@ val th = inv_defs |> map #2 |> hd
1755
val (x1,x2) = cases_th |> CONJUNCTS |> hd |> concl |> repeat (snd o dest_forall)
1756
|> dest_eq
1757
val case_const = x1 |> repeat rator
1758
- (* val _ = persistent_skip_case_const case_const *)
1759
val ty1 = case_const |> type_of |> domain
1760
val ty2 = x2 |> type_of
1761
val cases_th = INST_TYPE [ty2 |-> mk_vartype "'return_type"] cases_th
0 commit comments