Use auto instead of apply.

This commit is contained in:
Danila Fedorin 2021-01-02 21:22:07 -08:00
parent 2b69cbd391
commit 7a8503c3fe

4
day8.v
View File

@ -235,9 +235,9 @@ Module DayEight (Import M:Int).
intros pc acc. intros pc acc.
destruct (valid_input_progress pc l acc) as [[_ Hd]|[pc' [Hw [[_ Hst]|[pc'' [acc'' [Hin Hst]]]]]]]. destruct (valid_input_progress pc l acc) as [[_ Hd]|[pc' [Hw [[_ Hst]|[pc'' [acc'' [Hin Hst]]]]]]].
- (* We're done. *) - (* We're done. *)
eexists. apply run_noswap_ok. apply Hd. eexists. apply run_noswap_ok. assumption.
- (* We're stuck. *) - (* We're stuck. *)
eexists. apply run_noswap_fail. apply Hst. eexists. apply run_noswap_fail. assumption.
- (* We can make a step. This will remove our current PC from the valid list, *) - (* We can make a step. This will remove our current PC from the valid list, *)
edestruct (H (set_remove Fin.eq_dec pc' l)). edestruct (H (set_remove Fin.eq_dec pc' l)).
(* Since the PC must be in the list, removing it makes the list smaller. *) (* Since the PC must be in the list, removing it makes the list smaller. *)