a2abbdbf9a
This is just a draft. ``` for f in `find . -name '*.lean'`; do echo $f; gsed "/^import/s/\b\(.\)/\u\1/g" $f > tmp; gsed "/^Import/s/Import/import/g" tmp > $f; done ```
18 lines
645 B
Text
18 lines
645 B
Text
/-
|
||
Copyright (c) 2017 Microsoft Corporation. All rights reserved.
|
||
Released under Apache 2.0 license as described in the file LICENSE.
|
||
Authors: Leonardo de Moura
|
||
-/
|
||
prelude
|
||
import Init.Data.Option.Basic
|
||
|
||
universes u v
|
||
|
||
theorem Option.eqOfEqSome {α : Type u} : ∀ {x y : Option α}, (∀z, x = some z ↔ y = some z) → x = y
|
||
| none, none, h => rfl
|
||
| none, some z, h => Option.noConfusion ((h z).2 rfl)
|
||
| some z, none, h => Option.noConfusion ((h z).1 rfl)
|
||
| some z, some w, h => Option.noConfusion ((h w).2 rfl) (congrArg some)
|
||
|
||
theorem Option.eqNoneOfIsNone {α : Type u} : ∀ {o : Option α}, o.isNone → o = none
|
||
| none, h => rfl
|