586 "p = \<lparr> cx = 3, cy = 4, black = True \<rparr> \<longrightarrow> |
585 "p = \<lparr> cx = 3, cy = 4, black = True \<rparr> \<longrightarrow> |
587 p \<lparr> cy := 4 \<rparr> \<lparr> black := True \<rparr> \<lparr> cx := 3 \<rparr> = p" |
586 p \<lparr> cy := 4 \<rparr> \<lparr> black := True \<rparr> \<lparr> cx := 3 \<rparr> = p" |
588 "p = \<lparr> cx = 3, cy = 4, black = True \<rparr> \<longrightarrow> |
587 "p = \<lparr> cx = 3, cy = 4, black = True \<rparr> \<longrightarrow> |
589 p \<lparr> black := True \<rparr> \<lparr> cx := 3 \<rparr> \<lparr> cy := 4 \<rparr> = p" |
588 p \<lparr> black := True \<rparr> \<lparr> cx := 3 \<rparr> \<lparr> cy := 4 \<rparr> = p" |
590 using point.simps bw_point.simps |
589 using point.simps bw_point.simps |
591 by smt+ (* smt2 FIXME: bad Z3 4.3.x proof *) |
590 sorry (* smt2 FIXME: bad Z3 4.3.x proof *) |
592 |
591 |
593 lemma |
592 lemma |
594 "\<lparr> cx = 3, cy = 4, black = b \<rparr> \<lparr> black := w \<rparr> = \<lparr> cx = 3, cy = 4, black = w \<rparr>" |
593 "\<lparr> cx = 3, cy = 4, black = b \<rparr> \<lparr> black := w \<rparr> = \<lparr> cx = 3, cy = 4, black = w \<rparr>" |
595 "\<lparr> cx = 3, cy = 4, black = True \<rparr> \<lparr> black := False \<rparr> = |
594 "\<lparr> cx = 3, cy = 4, black = True \<rparr> \<lparr> black := False \<rparr> = |
596 \<lparr> cx = 3, cy = 4, black = False \<rparr>" |
595 \<lparr> cx = 3, cy = 4, black = False \<rparr>" |