diff options
| author | Jacques-Henri Jourdan <jacques-henri.jourdan@inria.fr> | 2015-11-04 03:04:21 +0100 |
|---|---|---|
| committer | Jacques-Henri Jourdan <jacques-henri.jourdan@inria.fr> | 2015-11-04 03:04:21 +0100 |
| commit | 5664fddcab15ef4482d583673c75e07bd1e96d0a (patch) | |
| tree | 878b22860e69405ba5cf6fd2798731dac8ce660c /common/Errors.v | |
| parent | b960c83725d7e185ac5c6e3c0d6043c7dcd2f556 (diff) | |
| parent | fe73ed58ef80da7c53c124302a608948fb190229 (diff) | |
| download | compcert-5664fddcab15ef4482d583673c75e07bd1e96d0a.tar.gz compcert-5664fddcab15ef4482d583673c75e07bd1e96d0a.zip | |
Merge remote-tracking branch 'origin/master' into parser_fix
Diffstat (limited to 'common/Errors.v')
| -rw-r--r-- | common/Errors.v | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/common/Errors.v b/common/Errors.v index 78e11999..338d777d 100644 --- a/common/Errors.v +++ b/common/Errors.v @@ -122,7 +122,7 @@ Proof. destruct (bind_inversion _ _ H) as [hd' [P Q]]. destruct (bind_inversion _ _ Q) as [tl' [R S]]. inversion_clear S. - constructor. auto. auto. + constructor. auto. auto. Qed. (** * Reasoning over monadic computations *) @@ -174,20 +174,20 @@ Ltac monadInv1 H := Ltac monadInv H := monadInv1 H || match type of H with - | (?F _ _ _ _ _ _ _ _ = OK _) => + | (?F _ _ _ _ _ _ _ _ = OK _) => ((progress simpl in H) || unfold F in H); monadInv1 H - | (?F _ _ _ _ _ _ _ = OK _) => + | (?F _ _ _ _ _ _ _ = OK _) => ((progress simpl in H) || unfold F in H); monadInv1 H - | (?F _ _ _ _ _ _ = OK _) => + | (?F _ _ _ _ _ _ = OK _) => ((progress simpl in H) || unfold F in H); monadInv1 H - | (?F _ _ _ _ _ = OK _) => + | (?F _ _ _ _ _ = OK _) => ((progress simpl in H) || unfold F in H); monadInv1 H - | (?F _ _ _ _ = OK _) => + | (?F _ _ _ _ = OK _) => ((progress simpl in H) || unfold F in H); monadInv1 H - | (?F _ _ _ = OK _) => + | (?F _ _ _ = OK _) => ((progress simpl in H) || unfold F in H); monadInv1 H - | (?F _ _ = OK _) => + | (?F _ _ = OK _) => ((progress simpl in H) || unfold F in H); monadInv1 H - | (?F _ = OK _) => + | (?F _ = OK _) => ((progress simpl in H) || unfold F in H); monadInv1 H end. |