Skip to content
Snippets Groups Projects
Commit 8c382d56 authored by Ralf Jung's avatar Ralf Jung
Browse files

make proof of fill_not_value fully automatic

parent 2dda1557
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 6 deletions
channel/heap_lang.v
+ 1
− 6
View file @ 8c382d56
...@@ -181,12 +181,7 @@ Qed. ...@@ -181,12 +181,7 @@ Qed.
Lemma fill_not_value e K : Lemma fill_not_value e K :
e2v e = None -> e2v (fill K e) = None. e2v e = None -> e2v (fill K e) = None.
Proof. Proof.
intros Hnval. induction K =>/=; try reflexivity. intros Hnval. induction K =>/=; by rewrite ?v2v /= ?IHK /=.
- done.
- by rewrite IHK /=.
- by rewrite v2v /= IHK /=.
- by rewrite IHK /=.
- by rewrite IHK /=.
Qed. Qed.
Lemma fill_not_value2 e K v : Lemma fill_not_value2 e K v :
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment