lean2/tests/lean/run/tactic22.lean

import logic
open tactic

notation `(` h `|` r:(foldl `|` (e r, tactic.or_else r e) h) `)` := r
infixl `;`:15 := tactic.and_then


theorem T (a b c d : Prop) (Ha : a) (Hb : b) (Hc : c) (Hd : d) : a ∧ b ∧ c ∧ d
:= by fixpoint (λ f, (apply and.intro; f | assumption; f | id))
chore(*): minimize dependencies on tests Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-08-25 02:58:48 +00:00			`import logic`
feat(frontends/lean): rename 'using' command to 'open' Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-09-03 23:00:38 +00:00			`open tactic`
feat(library/tactic): add 'fixpoint' tactic Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-07-04 08:30:28 +00:00
feat(frontends/lean): add tactic_notation command This addresses the first part of issue #461 We still need support for tactic definitions 2015-04-28 00:46:13 +00:00			notation `(` h `\|` r:(foldl `\|` (e r, tactic.or_else r e) h) `)` := r
			infixl `;`:15 := tactic.and_then


refactor(*): rename Bool to Prop Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-07-22 16:43:18 +00:00			`theorem T (a b c d : Prop) (Ha : a) (Hb : b) (Hc : c) (Hd : d) : a ∧ b ∧ c ∧ d`
feat(frontends/lean): add tactic_notation command This addresses the first part of issue #461 We still need support for tactic definitions 2015-04-28 00:46:13 +00:00			`:= by fixpoint (λ f, (apply and.intro; f \| assumption; f \| id))`