Commit fecd9cf4 authored by Robbert Krebbers's avatar Robbert Krebbers Committed by Jan
Browse files

Robbert's compression

parent 09d8a70f
Pipeline #48275 passed with stage
in 4 minutes and 31 seconds
......@@ -201,10 +201,7 @@ Section sum_list.
induction l; simpl; rewrite ?reverse_cons, ?sum_list_with_app; simpl; lia.
Qed.
Lemma sum_list_with_in x (f : A nat) l : x l f x sum_list_with f l.
Proof.
intros H. induction H.
all: simpl; lia.
Qed.
Proof. induction 1; simpl; lia. Qed.
Lemma join_reshape szs l :
sum_list szs = length l mjoin (reshape szs l) = l.
Proof.
......
Supports Markdown
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