diff --git a/theories/option.v b/theories/option.v
index 7e5da6e5213de896ddca0be8b37e73c3b94d155a..16eee71fb771421a5738efd275fb8f1d53e77e33 100644
--- a/theories/option.v
+++ b/theories/option.v
@@ -298,11 +298,11 @@ End union_intersection_difference.
 (** * Tactics *)
 Tactic Notation "case_option_guard" "as" ident(Hx) :=
   match goal with
-  | H : appcontext C [@mguard option _ ?P ?dec] |- _ =>
+  | H : context C [@mguard option _ ?P ?dec] |- _ =>
     change (@mguard option _ P dec) with (λ A (f : P → option A),
       match @decide P dec with left H' => f H' | _ => None end) in *;
     destruct_decide (@decide P dec) as Hx
-  | |- appcontext C [@mguard option _ ?P ?dec] =>
+  | |- context C [@mguard option _ ?P ?dec] =>
     change (@mguard option _ P dec) with (λ A (f : P → option A),
       match @decide P dec with left H' => f H' | _ => None end) in *;
     destruct_decide (@decide P dec) as Hx
@@ -326,9 +326,9 @@ Tactic Notation "simpl_option" "by" tactic3(tac) :=
       assert (mx = Some x') as H by tac
     | assert (mx = None) as H by tac ]
   in repeat match goal with
-  | H : appcontext [@mret _ _ ?A] |- _ =>
+  | H : context [@mret _ _ ?A] |- _ =>
      change (@mret _ _ A) with (@Some A) in H
-  | |- appcontext [@mret _ _ ?A] => change (@mret _ _ A) with (@Some A)
+  | |- context [@mret _ _ ?A] => change (@mret _ _ A) with (@Some A)
   | H : context [mbind (M:=option) (A:=?A) ?f ?mx] |- _ =>
     let Hx := fresh in assert_Some_None A mx Hx; rewrite Hx in H; clear Hx
   | H : context [fmap (M:=option) (A:=?A) ?f ?mx] |- _ =>
diff --git a/theories/tactics.v b/theories/tactics.v
index 583b544fa1de91f31d9c3285bb92888b56897bf4..e0283a9ec53be7577bf1c6d150743895ee6c2249 100644
--- a/theories/tactics.v
+++ b/theories/tactics.v
@@ -158,7 +158,7 @@ Coq-club message:
 https://sympa.inria.fr/sympa/arc/coq-club/2012-10/msg00147.html *)
 Ltac fold_classes :=
   repeat match goal with
-  | |- appcontext [ ?F ] =>
+  | |- context [ ?F ] =>
     progress match type of F with
     | FMap _ =>
        change F with (@fmap _ F);
@@ -176,7 +176,7 @@ Ltac fold_classes :=
   end.
 Ltac fold_classes_hyps H :=
   repeat match type of H with
-  | appcontext [ ?F ] =>
+  | context [ ?F ] =>
     progress match type of F with
     | FMap _ =>
        change F with (@fmap _ F) in H;