SET_RULE : term -> thm
- SET_RULE ``!s t c. DISJOINT s t ==> DISJOINT (s INTER c) (t INTER c)``; <<HOL message: inventing new type variable names: 'a>> metis: r[+0+5]+0+0+0+0+1# > val it = |- !s t c. DISJOINT s t ==> DISJOINT (s INTER c) (t INTER c): thm