diff options
Diffstat (limited to 'theories/Init')
| -rw-r--r-- | theories/Init/Datatypes.v | 2 | ||||
| -rw-r--r-- | theories/Init/Tactics.v | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/theories/Init/Datatypes.v b/theories/Init/Datatypes.v index 2194b93a3f..84af2fe852 100644 --- a/theories/Init/Datatypes.v +++ b/theories/Init/Datatypes.v @@ -74,6 +74,8 @@ Hint Resolve andb_true_intro: bool. Inductive eq_true : bool -> Prop := is_eq_true : eq_true true. +Hint Constructors eq_true : eq_true. + (** Additional rewriting lemmas about [eq_true] *) Lemma eq_true_ind_r : diff --git a/theories/Init/Tactics.v b/theories/Init/Tactics.v index a59eba6f46..52b5012a9b 100644 --- a/theories/Init/Tactics.v +++ b/theories/Init/Tactics.v @@ -167,7 +167,7 @@ Ltac easy := solve [reflexivity | symmetry; trivial] || contradiction || (split; do_atom) - with do_ccl := trivial; repeat do_intro; do_atom in + with do_ccl := trivial with eq_true; repeat do_intro; do_atom in (use_hyps; do_ccl) || fail "Cannot solve this goal". Tactic Notation "now" tactic(t) := t; easy. |