Rename misspelled `IAnom` into `IFresh` (`IAnon` is already in use).

theories/proofmode/intro_patterns.v

@@ -4,7 +4,7 @@ Set Default Proof Using "Type".
 
 Inductive intro_pat :=
   | IIdent : ident → intro_pat
-  | IAnom : intro_pat
+  | IFresh : intro_pat
   | IDrop : intro_pat
   | IFrame : intro_pat
   | IList : list (list intro_pat) → intro_pat
@@ -74,7 +74,7 @@ Fixpoint parse_go (ts : list token) (k : stack) : option stack :=
   | [] => Some k
   | TName "_" :: ts => parse_go ts (StPat IDrop :: k)
   | TName s :: ts => parse_go ts (StPat (IIdent s) :: k)
-  | TAnom :: ts => parse_go ts (StPat IAnom :: k)
+  | TAnon :: ts => parse_go ts (StPat IFresh :: k)
   | TFrame :: ts => parse_go ts (StPat IFrame :: k)
   | TBracketL :: ts => parse_go ts (StList :: k)
   | TBar :: ts => parse_go ts (StBar :: k)

theories/proofmode/ltac_tactics.v

@@ -1219,7 +1219,7 @@ Tactic Notation "iModCore" constr(H) :=
 (** * Basic destruct tactic *)
 Local Ltac iDestructHypGo Hz pat :=
   lazymatch pat with
-  | IAnom =>
+  | IFresh =>
      lazymatch Hz with
      | IAnon _ => idtac
      | INamed ?Hz => let Hz' := iFresh in iRename Hz into Hz'

theories/proofmode/tokens.v

@@ -4,7 +4,7 @@ Set Default Proof Using "Type".
 Inductive token :=
   | TName : string → token
   | TNat : nat → token
-  | TAnom : token
+  | TAnon : token
   | TFrame : token
   | TBar : token
   | TBracketL : token
@@ -43,7 +43,7 @@ Definition cons_state (kn : state) (k : list token) : list token :=
 Fixpoint tokenize_go (s : string) (k : list token) (kn : state) : list token :=
   match s with
   | "" => reverse (cons_state kn k)
-  | String "?" s => tokenize_go s (TAnom :: cons_state kn k) SNone
+  | String "?" s => tokenize_go s (TAnon :: cons_state kn k) SNone
   | String "$" s => tokenize_go s (TFrame :: cons_state kn k) SNone
   | String "[" s => tokenize_go s (TBracketL :: cons_state kn k) SNone
   | String "]" s => tokenize_go s (TBracketR :: cons_state kn k) SNone