From 4d542bc7eafadb16b845cf05d1eb4988eb55ed0f Mon Sep 17 00:00:00 2001 From: Bernhard Schommer Date: Tue, 20 Oct 2015 13:32:18 +0200 Subject: Updated PR by removing whitespaces. Bug 17450. --- 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