Commit c98c721b authored by Robbert Krebbers's avatar Robbert Krebbers

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

parent 91dfd8b9
......@@ -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)
......
......@@ -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'
......
......@@ -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
......
Markdown is supported
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