31 lines
658 B
Text
31 lines
658 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
|
|
prelude
|
|
import init.core
|
|
|
|
@[inline] def {u} cond {A : Type u} : bool → A → A → A
|
|
| tt a b := a
|
|
| ff a b := b
|
|
|
|
@[inline] def bor : bool → bool → bool
|
|
| tt _ := tt
|
|
| ff tt := tt
|
|
| ff ff := ff
|
|
|
|
@[inline] def band : bool → bool → bool
|
|
| ff _ := ff
|
|
| tt ff := ff
|
|
| tt tt := tt
|
|
|
|
@[inline] def bnot : bool → bool
|
|
| tt := ff
|
|
| ff := tt
|
|
|
|
@[inline] def bxor : bool → bool → bool
|
|
| tt ff := tt
|
|
| ff tt := tt
|
|
| _ _ := ff
|
|
|
|
notation a || b := bor a b
|
|
notation a && b := band a b
|