Use auto instead of apply.
This commit is contained in:
parent
2b69cbd391
commit
7a8503c3fe
4
day8.v
4
day8.v
|
@ -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. *)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user