]> matita.cs.unibo.it Git - helm.git/blob - helm/gTopLevel/esempi/ring/novarmap_tofinish.cic
ocaml 3.09 transition
[helm.git] / helm / gTopLevel / esempi / ring / novarmap_tofinish.cic
1 (* Goal: ``1 = 2`` *)
2 alias eq        /Coq/Init/Logic/Equality/eq.ind#1/1
3 alias eqT       /Coq/Init/Logic_Type/eqT.ind#1/1
4 alias R         /Coq/Reals/Rdefinitions/R.con
5 alias Rplus     /Coq/Reals/Rdefinitions/Rplus.con
6 alias Rmult     /Coq/Reals/Rdefinitions/Rmult.con
7 alias R1        /Coq/Reals/Rdefinitions/R1.con
8 alias R0        /Coq/Reals/Rdefinitions/R0.con
9 alias Ropp      /Coq/Reals/Rdefinitions/Ropp.con
10 (eqT R
11   R1
12   (Rplus R1 R1)
13 )