Skip to content

Commit f18f45a

Browse files
committed
Fix following change in Define in HOL
1 parent 46ea63e commit f18f45a

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

examples/divScript.sml

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -318,8 +318,8 @@ QED
318318
(* TODO: Move REPLICATE_LIST and lemmas to an appropriate theory *)
319319

320320
val REPLICATE_LIST_def = Define `
321-
(!l. REPLICATE_LIST l 0 = []) /\
322-
(!l n. REPLICATE_LIST l (SUC n) = REPLICATE_LIST l n ++ l)`
321+
(REPLICATE_LIST l 0 = []) /\
322+
(REPLICATE_LIST l (SUC n) = REPLICATE_LIST l n ++ l)`
323323

324324
Theorem REPLICATE_LIST_SNOC:
325325
!x n. SNOC x (REPLICATE_LIST [x] n) = REPLICATE_LIST [x] (SUC n)

0 commit comments

Comments
 (0)