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; repeat 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-24 19:58:48 -07:00			`import logic`
feat(frontends/lean): rename 'using' command to 'open' Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-09-03 16:00:38 -07:00			`open tactic`
feat(library/tactic): add apply tactic Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-06-29 18:26:07 -07:00
refactor(*): rename Bool to Prop Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-07-22 09:43:18 -07:00			`theorem tst {A B : Prop} (H1 : A) (H2 : B) : A ∧ B ∧ A`
feat(library/tactic): improve 'assumption' tactic - It uses the unifier in "conservative" mode - It only affects the current goal closes #570 2015-05-02 17:32:03 -07:00			`:= by apply and.intro; state; assumption; apply and.intro; repeat assumption`
feat(library/tactic): new apply tactic Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-07-02 13:14:50 -07:00			`check tst`

refactor(*): rename Bool to Prop Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-07-22 09:43:18 -07: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 09:24:09 -07: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 13:14:50 -07:00
			`check tst2`