From f5bb397acd12292f6b41438778f2df7391d6f2fe Mon Sep 17 00:00:00 2001 From: Michael Schmidt Date: Wed, 14 Oct 2015 15:26:56 +0200 Subject: bug 17392: remove trailing whitespace in source files --- common/Errors.v | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'common/Errors.v') 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. -- cgit