Skip to content

Commit c72a789

Browse files
committed
Remove pair_case_eq as it is in pairTheory
1 parent 7479d36 commit c72a789

File tree

1 file changed

+0
-7
lines changed

1 file changed

+0
-7
lines changed

misc/miscScript.sml

-7
Original file line numberDiff line numberDiff line change
@@ -2262,13 +2262,6 @@ Proof
22622262
srw_tac[][] >> metis_tac[]
22632263
QED
22642264

2265-
Theorem pair_case_eq:
2266-
pair_CASE x f = v ⇔ ?x1 x2. x = (x1,x2) ∧ f x1 x2 = v
2267-
Proof
2268-
Cases_on `x` >>
2269-
srw_tac[][]
2270-
QED
2271-
22722265
Theorem lookup_fromList2:
22732266
!l n. lookup n (fromList2 l) =
22742267
if EVEN n then lookup (n DIV 2) (fromList l) else NONE

0 commit comments

Comments
 (0)