Skip to content

Commit 62f815d

Browse files
committed
Tidy overloads of OPTION_MAP2
1 parent 115d5ce commit 62f815d

File tree

1 file changed

+1
-2
lines changed

1 file changed

+1
-2
lines changed

src/coretypes/optionScript.sml

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -203,8 +203,7 @@ val OPTION_MAP2_THM = Q.store_thm("OPTION_MAP2_THM",
203203
(OPTION_MAP2 f NONE NONE = NONE)`,
204204
REWRITE_TAC (OPTION_MAP2_DEF::option_rws));
205205
val _ = export_rewrites ["OPTION_MAP2_THM"];
206-
val _ = overload_on("lift2", ``OPTION_MAP2``)
207-
val _ = overload_on("OPTION_MAP2", ``OPTION_MAP2``)
206+
Overload lift2[inferior] = ``OPTION_MAP2``
208207
val _ = computeLib.add_persistent_funs ["OPTION_MAP2_THM"]
209208

210209
val option_rws = OPTION_MAP2_THM::option_rws;

0 commit comments

Comments
 (0)