23 lines
540 B
Text
23 lines
540 B
Text
|
-- Copyright (c) 2014 Microsoft Corporation. All rights reserved.
|
||
|
|
-- Released under Apache 2.0 license as described in the file LICENSE.
|
||
|
|
-- Author: Leonardo de Moura
|
||
|
|
import general_notation data.bool.decl
|
||
|
|
|
||
|
|
namespace bool
|
||
|
|
definition cond {A : Type} (b : bool) (t e : A) :=
|
||
|
|
rec_on b e t
|
||
|
|
|
||
|
|
definition bor (a b : bool) :=
|
||
|
|
rec_on a (rec_on b ff tt) tt
|
||
|
|
|
||
|
|
notation a || b := bor a b
|
||
|
|
|
||
|
|
definition band (a b : bool) :=
|
||
|
|
rec_on a ff (rec_on b ff tt)
|
||
|
|
|
||
|
|
notation a && b := band a b
|
||
|
|
|
||
|
|
definition bnot (a : bool) :=
|
||
|
|
rec_on a tt ff
|
||
|
|
end bool
|