equal
deleted
inserted
replaced
113 let fun atoms th = |
113 let fun atoms th = |
114 (case concl_of th of |
114 (case concl_of th of |
115 Const("Trueprop",_) $ p => |
115 Const("Trueprop",_) $ p => |
116 (case head_of p of |
116 (case head_of p of |
117 Const(a,_) => |
117 Const(a,_) => |
118 (case assoc(pairs,a) of |
118 (case AList.lookup (op =) pairs a of |
119 SOME(rls) => List.concat (map atoms ([th] RL rls)) |
119 SOME(rls) => List.concat (map atoms ([th] RL rls)) |
120 | NONE => [th]) |
120 | NONE => [th]) |
121 | _ => [th]) |
121 | _ => [th]) |
122 | _ => [th]) |
122 | _ => [th]) |
123 in atoms end; |
123 in atoms end; |