Remove useless eta expansion.

theories/c_translation/translation.v

@@ -90,7 +90,7 @@ Notation "'skipᶜ'" := (c_ret #()).
 
 Definition c_seq_bind : val := λ: "x" "f",
   "a" ←ᶜ "x" ;;ᶜ
-  c_atomic_env (λ: "env", mset_clear "env") ;;ᶜ
+  c_atomic_env mset_clear ;;ᶜ
   "f" "a".
 Notation "x ←ᶜ e1 ;ᶜ e2" :=
   (c_seq_bind e1%E (λ: x, e2)%E)%E
@@ -393,7 +393,7 @@ Section proofs.
     cwp_pures. iApply cwp_bind.
     iApply cwp_atomic_env. iIntros (env) "Henv $". iApply wp_fupd.
     iDestruct "Henv" as (X σ _) "[Hlocks Hσ]".
-    wp_lam. wp_apply (mset_clear_spec with "Hlocks"); iIntros "Hlocks".
+    wp_apply (mset_clear_spec with "Hlocks"); iIntros "Hlocks".
     rewrite U_eq. iDestruct "H" as (us) "[Hus H]".
     iInduction us as [|[ul [uq uv]] us] "IH" forall (σ); simpl.
     - iModIntro. iSplitR "H".