make proof of fill_not_value fully automatic

8c382d56 · Ralf Jung · 2dda1557 · 8c382d56
Commit 8c382d56 authored Jan 05, 2016 by Ralf Jung
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 6 deletions

channel/heap_lang.v channel/heap_lang.v +1 -6

No files found.
--- a/channel/heap_lang.v
+++ b/channel/heap_lang.v
@@ -181,12 +181,7 @@ Qed.
 Lemma fill_not_value e K :
  e2v e = None -> e2v (fill K e) = None.
 Proof.
-  intros Hnval.  induction K =>/=; try reflexivity.
-  - done.
-  - by rewrite IHK /=.
-  - by rewrite v2v /= IHK /=.
-  - by rewrite IHK /=.
-  - by rewrite IHK /=.
+  intros Hnval.  induction K =>/=; by rewrite ?v2v /= ?IHK /=.
 Qed.

 Lemma fill_not_value2 e K v :