helm/software/matita/contribs/procedural/Coq/Relations/Newman.mma

   1 (**************************************************************************)
   2 (*       ___                                                              *)
   3 (*      ||M||                                                             *)
   4 (*      ||A||       A project by Andrea Asperti                           *)
   5 (*      ||T||                                                             *)
   6 (*      ||I||       Developers:                                           *)
   7 (*      ||T||         The HELM team.                                      *)
   8 (*      ||A||         http://helm.cs.unibo.it                             *)
   9 (*      \   /                                                             *)
  10 (*       \ /        This file is distributed under the terms of the       *)
  11 (*        v         GNU General Public License Version 2                  *)
  12 (*                                                                        *)
  13 (**************************************************************************)
  14
  15 (* This file was automatically generated: do not edit *********************)
  16
  17 include "Coq.ma".
  18
  19 (*#**********************************************************************)
  20
  21 (*  v      *   The Coq Proof Assistant  /  The Coq Development Team    *)
  22
  23 (* <O___,, *        INRIA-Rocquencourt  &  LRI-CNRS-Orsay              *)
  24
  25 (*   \VV/  *************************************************************)
  26
  27 (*    //   *      This file is distributed under the terms of the      *)
  28
  29 (*         *       GNU Lesser General Public License Version 2.1       *)
  30
  31 (*#**********************************************************************)
  32
  33 (*i $Id: Newman.v,v 1.7 2003/11/29 17:28:41 herbelin Exp $ i*)
  34
  35 include "Relations/Rstar.ma".
  36
  37 (* UNEXPORTED
  38 Section Newman
  39 *)
  40
  41 (* UNEXPORTED
  42 cic:/Coq/Relations/Newman/Newman/A.var
  43 *)
  44
  45 (* UNEXPORTED
  46 cic:/Coq/Relations/Newman/Newman/R.var
  47 *)
  48
  49 inline procedural "cic:/Coq/Relations/Newman/Newman/Rstar.con" "Newman__" as definition.
  50
  51 inline procedural "cic:/Coq/Relations/Newman/Newman/Rstar_reflexive.con" "Newman__" as definition.
  52
  53 inline procedural "cic:/Coq/Relations/Newman/Newman/Rstar_transitive.con" "Newman__" as definition.
  54
  55 inline procedural "cic:/Coq/Relations/Newman/Newman/Rstar_Rstar'.con" "Newman__" as definition.
  56
  57 inline procedural "cic:/Coq/Relations/Newman/coherence.con" as definition.
  58
  59 inline procedural "cic:/Coq/Relations/Newman/coherence_intro.con" as theorem.
  60
  61 (*#* A very simple case of coherence : *)
  62
  63 inline procedural "cic:/Coq/Relations/Newman/Rstar_coherence.con" as lemma.
  64
  65 (*#* coherence is symmetric *)
  66
  67 inline procedural "cic:/Coq/Relations/Newman/coherence_sym.con" as lemma.
  68
  69 inline procedural "cic:/Coq/Relations/Newman/confluence.con" as definition.
  70
  71 inline procedural "cic:/Coq/Relations/Newman/local_confluence.con" as definition.
  72
  73 inline procedural "cic:/Coq/Relations/Newman/noetherian.con" as definition.
  74
  75 (* UNEXPORTED
  76 Section Newman_section
  77 *)
  78
  79 (*#* The general hypotheses of the theorem *)
  80
  81 (* UNEXPORTED
  82 cic:/Coq/Relations/Newman/Newman/Newman_section/Hyp1.var
  83 *)
  84
  85 (* UNEXPORTED
  86 cic:/Coq/Relations/Newman/Newman/Newman_section/Hyp2.var
  87 *)
  88
  89 (*#* The induction hypothesis *)
  90
  91 (* UNEXPORTED
  92 Section Induct
  93 *)
  94
  95 (* UNEXPORTED
  96 cic:/Coq/Relations/Newman/Newman/Newman_section/Induct/x.var
  97 *)
  98
  99 (* UNEXPORTED
 100 cic:/Coq/Relations/Newman/Newman/Newman_section/Induct/hyp_ind.var
 101 *)
 102
 103 (*#* Confluence in [x] *)
 104
 105 (* UNEXPORTED
 106 cic:/Coq/Relations/Newman/Newman/Newman_section/Induct/y.var
 107 *)
 108
 109 (* UNEXPORTED
 110 cic:/Coq/Relations/Newman/Newman/Newman_section/Induct/z.var
 111 *)
 112
 113 (* UNEXPORTED
 114 cic:/Coq/Relations/Newman/Newman/Newman_section/Induct/h1.var
 115 *)
 116
 117 (* UNEXPORTED
 118 cic:/Coq/Relations/Newman/Newman/Newman_section/Induct/h2.var
 119 *)
 120
 121 (*#* particular case [x->u] and [u->*y]   *)
 122
 123 (* UNEXPORTED
 124 Section Newman_
 125 *)
 126
 127 (* UNEXPORTED
 128 cic:/Coq/Relations/Newman/Newman/Newman_section/Induct/Newman_/u.var
 129 *)
 130
 131 (* UNEXPORTED
 132 cic:/Coq/Relations/Newman/Newman/Newman_section/Induct/Newman_/t1.var
 133 *)
 134
 135 (* UNEXPORTED
 136 cic:/Coq/Relations/Newman/Newman/Newman_section/Induct/Newman_/t2.var
 137 *)
 138
 139 (*#* In the usual diagram, we assume also [x->v] and [v->*z] *)
 140
 141 inline procedural "cic:/Coq/Relations/Newman/Diagram.con" as theorem.
 142
 143 inline procedural "cic:/Coq/Relations/Newman/caseRxy.con" as theorem.
 144
 145 (*i case x->v->*z i*)
 146
 147 (* UNEXPORTED
 148 End Newman_
 149 *)
 150
 151 inline procedural "cic:/Coq/Relations/Newman/Ind_proof.con" as theorem.
 152
 153 (*i case x->u->*z i*)
 154
 155 (* UNEXPORTED
 156 End Induct
 157 *)
 158
 159 inline procedural "cic:/Coq/Relations/Newman/Newman.con" as theorem.
 160
 161 (* UNEXPORTED
 162 End Newman_section
 163 *)
 164
 165 (* UNEXPORTED
 166 End Newman
 167 *)
 168