lean2/tests/lean/run/676.lean

import data.nat
open nat

inductive foo : Prop :=
mk : ∀ {a : nat}, a > 0 → foo

example (b : nat) (h : b > 1) : foo :=
begin
  fconstructor,
  exact b,
  exact lt_of_succ_lt h
end
feat(library/tactic/constructor_tactic): use 'fapply' in 'constructor' tactic closes #676 2015-06-16 19:03:31 +00:00			`import data.nat`
			`open nat`

			`inductive foo : Prop :=`
			`mk : ∀ {a : nat}, a > 0 → foo`

			`example (b : nat) (h : b > 1) : foo :=`
			`begin`
feat(library/tactic/constructor_tactic): restore 'constructor' tactic old semantics, add 'fconstructor' tactic See issue #676 Add new test demonstrating why it is useful to have the old semantics for 'constructor' 2015-06-18 06:48:54 +00:00			`fconstructor,`
feat(library/tactic/constructor_tactic): use 'fapply' in 'constructor' tactic closes #676 2015-06-16 19:03:31 +00:00			`exact b,`
			`exact lt_of_succ_lt h`
			`end`