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