diff options
Diffstat (limited to 'MenhirLib/Validator_safe.v')
-rw-r--r-- | MenhirLib/Validator_safe.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/MenhirLib/Validator_safe.v b/MenhirLib/Validator_safe.v index 2d2ea4b3..628d2009 100644 --- a/MenhirLib/Validator_safe.v +++ b/MenhirLib/Validator_safe.v @@ -184,8 +184,8 @@ Instance impl_is_state_valid_after_pop_is_validator state sl pl P b : IsValidator (state_valid_after_pop state sl pl -> P) (if is_state_valid_after_pop state sl pl then b else true). Proof. - destruct (is_state_valid_after_pop state0 sl pl) eqn:EQ. - - intros ??. auto using is_validator. + destruct (is_state_valid_after_pop _ sl pl) eqn:EQ. + - intros ???. by eapply is_validator. - intros _ _ Hsvap. exfalso. induction Hsvap=>//; [simpl in EQ; congruence|]. by destruct sl. Qed. |