From 15bbdcfa63dd7fee30b3d03f98cf0795e4baf087 Mon Sep 17 00:00:00 2001 From: herbelin Date: Mon, 12 May 2008 18:25:06 +0000 Subject: MAJ et bricoles diverses git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10923 85f007b7-540e-0410-9357-904b9bb8a0f7 --- theories/Init/Specif.v | 3 +++ 1 file changed, 3 insertions(+) (limited to 'theories/Init') diff --git a/theories/Init/Specif.v b/theories/Init/Specif.v index 4f642a73e..2244e1b9a 100644 --- a/theories/Init/Specif.v +++ b/theories/Init/Specif.v @@ -115,6 +115,9 @@ Proof. destruct 1 as (x,H); exists x; trivial. Defined. Lemma sigT_of_sig : forall (A:Type) (P:A->Prop), sig P -> sigT P. Proof. destruct 1 as (x,H); exists x; trivial. Defined. +Coercion sigT_of_sig : sig >-> sigT. +Coercion sig_of_sigT : sigT >-> sig. + (** [sumbool] is a boolean type equipped with the justification of their value *) -- cgit v1.2.3