refactor(lean/examples/constable.lean): move to library/standard/logic/examples/nuprl_examples.lean
This commit is contained in:
parent
d0f0e58a85
commit
505b93b7cb
5 changed files with 23 additions and 15 deletions
|
@ -131,18 +131,4 @@ namespace iff_ops
|
|||
abbreviation subst := @subst_iff
|
||||
abbreviation mp := @iff_mp
|
||||
end iff_ops
|
||||
|
||||
|
||||
-- Boolean calculations
|
||||
-- --------------------
|
||||
|
||||
-- TODO: move these somewhere
|
||||
|
||||
theorem or_right_comm (a b c : Prop) : (a ∨ b) ∨ c ↔ (a ∨ c) ∨ b :=
|
||||
calc
|
||||
(a ∨ b) ∨ c ↔ a ∨ (b ∨ c) : or_assoc _ _ _
|
||||
... ↔ a ∨ (c ∨ b) : {or_comm b c}
|
||||
... ↔ (a ∨ c) ∨ b : iff_symm (or_assoc _ _ _)
|
||||
|
||||
-- TODO: add or_left_comm, and_right_comm, and_left_comm
|
||||
end relation
|
||||
|
|
4
library/standard/logic/examples/examples.md
Normal file
4
library/standard/logic/examples/examples.md
Normal file
|
@ -0,0 +1,4 @@
|
|||
logic.examples
|
||||
==============
|
||||
|
||||
* [nuprl_examples](nuprl_examples.lean) : examples from "Logical investigations with the Nuprl Proof Assistant"
|
|
@ -5,4 +5,5 @@ Logical constructions and axioms. By default, `import logic` does not import any
|
|||
|
||||
* [connectives](connectives/connectives.md) : logical connectives
|
||||
* [axioms](axioms/axioms.md) : additional axioms
|
||||
* [classes](classes/classes.md) : classes for inhabited types, decidable types, etc.
|
||||
* [classes](classes/classes.md) : classes for inhabited types, decidable types, etc.
|
||||
* [examples](examples/examples.md)
|
17
library/standard/tools/helper_tactics.lean
Normal file
17
library/standard/tools/helper_tactics.lean
Normal file
|
@ -0,0 +1,17 @@
|
|||
-- Copyright (c) 2014 Microsoft Corporation. All rights reserved.
|
||||
-- Released under Apache 2.0 license as described in the file LICENSE.
|
||||
-- Author: Leonardo de Moura, Jeremy Avigad
|
||||
|
||||
-- tools.helper_tactics
|
||||
-- ====================
|
||||
|
||||
-- Useful tactics.
|
||||
|
||||
import .tactic
|
||||
|
||||
using tactic
|
||||
|
||||
namespace helper_tactics
|
||||
definition apply_refl := apply @refl
|
||||
tactic_hint apply_refl
|
||||
end helper_tactics
|
Loading…
Reference in a new issue