diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-07-11 08:30:14 +0200 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-07-11 08:30:14 +0200 |
| commit | d5b86a98560c36fbcb3ab8d2698e09147acda512 (patch) | |
| tree | f3ab850a1620fa5d3dbbe439998d09de8e0d817d /cparser/validator/Validator_safe.v | |
| parent | ea2d6b70ed06c60dba9ba81cf53883c85fb92068 (diff) | |
| parent | 3872ce9f9806d9af334b1fde092145edf664d170 (diff) | |
| download | compcert-d5b86a98560c36fbcb3ab8d2698e09147acda512.tar.gz compcert-d5b86a98560c36fbcb3ab8d2698e09147acda512.zip | |
Merge branch 'master' into add-file
Diffstat (limited to 'cparser/validator/Validator_safe.v')
| -rw-r--r-- | cparser/validator/Validator_safe.v | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/cparser/validator/Validator_safe.v b/cparser/validator/Validator_safe.v index c5229ac9..183d661b 100644 --- a/cparser/validator/Validator_safe.v +++ b/cparser/validator/Validator_safe.v @@ -121,7 +121,7 @@ Qed. Definition goto_head_symbs := forall s nt, match goto_table s nt with - | Some (exist s2 _) => + | Some (exist _ s2 _) => prefix (past_symb_of_non_init_state s2) (head_symbs_of_state s) | None => True end. @@ -130,7 +130,7 @@ Definition is_goto_head_symbs (_:unit) := forallb (fun s:state => forallb (fun nt => match goto_table s nt with - | Some (exist s2 _) => + | Some (exist _ s2 _) => is_prefix (past_symb_of_non_init_state s2) (head_symbs_of_state s) | None => true end) @@ -235,7 +235,7 @@ Qed. Definition goto_past_state := forall s nt, match goto_table s nt with - | Some (exist s2 _) => + | Some (exist _ s2 _) => prefix_pred (past_state_of_non_init_state s2) (head_states_of_state s) | None => True @@ -245,7 +245,7 @@ Definition is_goto_past_state (_:unit) := forallb (fun s:state => forallb (fun nt => match goto_table s nt with - | Some (exist s2 _) => + | Some (exist _ s2 _) => is_prefix_pred (past_state_of_non_init_state s2) (head_states_of_state s) | None => true |