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 ```
20 lines
469 B
Text
20 lines
469 B
Text
/-
|
|
Copyright (c) 2016 Microsoft Corporation. All rights reserved.
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|
Author: Leonardo de Moura
|
|
-/
|
|
prelude
|
|
import Init.Data.List.Basic
|
|
import Init.Control.Alternative
|
|
import Init.Control.Monad
|
|
open List
|
|
|
|
universes u v
|
|
|
|
instance : Monad List :=
|
|
{ pure := @List.pure, map := @List.map, bind := @List.bind }
|
|
|
|
instance : Alternative List :=
|
|
{ failure := @List.nil,
|
|
orelse := @List.append,
|
|
..List.Monad }
|