From eb4bbd580ebcb9b2f03f9d8313b6de26819dedf7 Mon Sep 17 00:00:00 2001
From: amahboub
Date: Thu, 22 Aug 2013 15:40:04 +0000
Subject: Correcting misplaced Proof command.

I did not even know it was possible to inline a 'Proof.' 
anywhere in a script.



git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16729 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 plugins/setoid_ring/Field_theory.v | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'plugins')

diff --git a/plugins/setoid_ring/Field_theory.v b/plugins/setoid_ring/Field_theory.v
index 52b632a7dc..bc947d54e8 100644
--- a/plugins/setoid_ring/Field_theory.v
+++ b/plugins/setoid_ring/Field_theory.v
@@ -1396,13 +1396,14 @@ Fixpoint Fapp (l m:list (PExpr C)) {struct l} : list (PExpr C) :=
 
 Lemma fcons_ok : forall l l1,
   (forall lock, lock = PCond l -> lock (Fapp l1 nil)) -> PCond l l1.
-intros l l1 h1; assert (H := h1 (PCond l) (refl_equal _));clear h1.
 Proof.
+intros l l1 h1; assert (H := h1 (PCond l) (refl_equal _));clear h1.
 induction l1; simpl; intros.
  trivial.
  elim PCond_fcons_inv with (1 := H); intros.
  destruct l1; trivial. split; trivial. apply IHl1; trivial.
 Qed.
+
 End Fcons_impl.
 
 Section Fcons_simpl.
-- 
cgit v1.2.3