SPECL : term list -> thm -> thm
A |- !x1...xn. t -------------------------- SPECL [u1,...,un] A |- t[u1/x1]...[un/xn]
- arithmeticTheory.LESS_EQ_LESS_EQ_MONO; > val it = |- !m n p q. m <= p /\ n <= q ==> m + n <= p + q : thm - SPECL (map Term [`1`, `2`, `3`, `4`]) it; > val it = |- 1 <= 3 /\ 2 <= 4 ==> 1 + 2 <= 3 + 4 : thm