diff options
| author | Michalis Pardalos <m.pardalos@gmail.com> | 2021-05-05 11:49:05 +0100 |
|---|---|---|
| committer | Michalis Pardalos <m.pardalos@gmail.com> | 2021-05-05 13:53:46 +0100 |
| commit | e04692c31b3e6edceaa8c97e7c7f343feb8b56c0 (patch) | |
| tree | 8ec43ccb9e40e276213569d0ef9e2afb0fae4ff6 /src/common | |
| parent | 7ab00f12fb2345321de00b5f87659c9df3523a2f (diff) | |
| download | vericert-e04692c31b3e6edceaa8c97e7c7f343feb8b56c0.tar.gz vericert-e04692c31b3e6edceaa8c97e7c7f343feb8b56c0.zip | |
Solve iter_expand_instr_spec by tactic (not Icall)
Diffstat (limited to 'src/common')
| -rw-r--r-- | src/common/Vericertlib.v | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/common/Vericertlib.v b/src/common/Vericertlib.v index 6437612..1c5c37f 100644 --- a/src/common/Vericertlib.v +++ b/src/common/Vericertlib.v @@ -57,9 +57,10 @@ Ltac learn_tac fact name := Tactic Notation "learn" constr(fact) := let name := fresh "H" in learn_tac fact name. Tactic Notation "learn" constr(fact) "as" simple_intropattern(name) := learn_tac fact name. -Ltac auto_apply H := +Ltac auto_apply fact := + let H' := fresh "H" in match goal with - | H' : _ |- _ => apply H in H' + | H : _ |- _ => pose proof H as H'; apply fact in H' end. (** Specialize all hypotheses with a forall to a specific term *) |