2014-11-07 16:53:14 +00:00
|
|
|
|
import logic data.unit data.bool
|
2014-09-03 23:00:38 +00:00
|
|
|
|
open bool unit decidable
|
2014-07-20 00:09:37 +00:00
|
|
|
|
|
2014-10-02 23:20:52 +00:00
|
|
|
|
constants a b c : bool
|
|
|
|
|
constants u v : unit
|
2014-07-22 12:58:36 +00:00
|
|
|
|
set_option pp.implicit true
|
2014-07-29 02:58:57 +00:00
|
|
|
|
check if ((a = b) ∧ (b = c) → ¬ (u = v) ∨ (a = c) → (a = c) ↔ a = tt ↔ true) then a else b
|