bool_rewrites: rewrites
- bool_rewrites; > val it = |- (x = x) = T; |- (T = t) = t; |- (t = T) = t; |- (F = t) = ~t; |- (t = F) = ~t; |- ~~t = t; |- ~T = F; |- ~F = T; |- T /\ t = t; |- t /\ T = t; |- F /\ t = F; |- t /\ F = F; |- t /\ t = t; |- T \/ t = T; |- t \/ T = T; |- F \/ t = t; |- t \/ F = t; |- t \/ t = t; |- T ==> t = t; |- t ==> T = T; |- F ==> t = T; |- t ==> t = T; |- t ==> F = ~t; |- (if T then t1 else t2) = t1; |- (if F then t1 else t2) = t2; |- (!x. t) = t; |- (?x. t) = t; |- (\x. t1) t2 = t1 Number of rewrite rules = 28 : rewrites