Skip to content

Commit 9358a27

Browse files
committed
Remove redudant liteLib code since Drule has changed
1 parent 50e4b8e commit 9358a27

File tree

1 file changed

+2
-4
lines changed

1 file changed

+2
-4
lines changed

src/lite/liteLib.sml

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -454,10 +454,8 @@ fun MK_FORALL v th =
454454
let val theta = [{redex=Type.alpha, residue=Term.type_of v}]
455455
in AP_TERM (Term.inst theta boolSyntax.universal) (ABS v th)
456456
end;
457-
fun MK_EXISTS v th =
458-
let val theta = [{redex=Type.alpha, residue=Term.type_of v}]
459-
in AP_TERM (Term.inst theta boolSyntax.existential) (ABS v th)
460-
end;
457+
458+
val MK_EXISTS = Drule.MK_EXISTS
461459

462460
fun SIMPLE_DISJ_CASES th1 th2 =
463461
case (hyp th1, hyp th2)

0 commit comments

Comments
 (0)