Skip to content
Snippets Groups Projects
Commit 176c5169 authored by Jonas Kastberg's avatar Jonas Kastberg
Browse files

Proof nits

parent 5b83879e
No related branches found
No related tags found
No related merge requests found
Pipeline #34112 failed
Hide whitespace changes
Inline Side-by-side
theories/logrel/session_types.v
+ 3
− 3
View file @ 176c5169
...@@ -112,10 +112,10 @@ Section session_types. ...@@ -112,10 +112,10 @@ Section session_types.
(@lty_choice Σ a). (@lty_choice Σ a).
Proof. Proof.
intros n Ss Ts Heq. rewrite /lty_choice. intros n Ss Ts Heq. rewrite /lty_choice.
do 4 f_equiv. do 2 f_equiv. f_equiv => i.
rewrite !lookup_total_alt. rewrite !lookup_total_alt.
specialize (Heq a0). specialize (Heq i).
destruct (Ss !! a0), (Ts !! a0); destruct (Ss !! i), (Ts !! i);
[ f_contractive | contradiction | contradiction | done ]. [ f_contractive | contradiction | contradiction | done ].
- f_equiv. split; intros H; eauto. - f_equiv. split; intros H; eauto.
- by rewrite Heq. - by rewrite Heq.
......
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