lean2/tests/lean/run/tactic7.lean

import logic
open tactic

theorem tst {A B : Prop} (H1 : A) (H2 : B) : A ∧ B ∧ A
:= by apply and.intro; state; assumption; apply and.intro; !assumption
check tst

theorem tst2 {A B : Prop} (H1 : A) (H2 : B) : A ∧ B ∧ A
:= by repeat ((apply @and.intro | assumption) ; trace "STEP"; state; trace "----------")

check tst2
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 apply tactic Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-06-30 01:26:07 +00:00
refactor(*): rename Bool to Prop Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-07-22 16:43:18 +00:00			`theorem tst {A B : Prop} (H1 : A) (H2 : B) : A ∧ B ∧ A`
feat(frontends/lean/inductive_cmd): prefix introduction rules with the name of the inductive datatype Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-09-04 23:36:06 +00:00			`:= by apply and.intro; state; assumption; apply and.intro; !assumption`
feat(library/tactic): new apply tactic Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-07-02 20:14:50 +00:00			`check tst`

refactor(*): rename Bool to Prop Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-07-22 16:43:18 +00:00			`theorem tst2 {A B : Prop} (H1 : A) (H2 : B) : A ∧ B ∧ A`
feat(frontends/lean): round parenthesis for [tactic1 \| tactic2] This commit also replaces the notation for divides `(` a `\|` b `)` with a `∣` b The character `∣` is entered by typing \\| closes #516 2015-04-06 16:24:09 +00:00			`:= by repeat ((apply @and.intro \| assumption) ; trace "STEP"; state; trace "----------")`
feat(library/tactic): new apply tactic Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-07-02 20:14:50 +00:00
			`check tst2`