WORD_DP : conv -> conv -> conv
- wordsLib.WORD_DP ALL_CONV tautLib.TAUT_PROVE ``a && b && a = a && b`` <<HOL message: inventing new type variable names: 'a>> > val it = |- a && b && a = a && b : thm - wordsLib.WORD_DP ALL_CONV DECIDE ``a < b /\ b < c ==> a < c : 'a word`` > val it = |- a < b /\ b < c ==> a < c : thm - wordsLib.WORD_DP ALL_CONV intLib.ARITH_PROVE ``a <+ 3w:word16 ==> (a = 0w) \/ (a = 1w) \/ (a = 2w)`` > val it = |- a <+ 3w ==> (a = 0w) \/ (a = 1w) \/ (a = 2w) : thm