From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Wed, 12 Apr 2006 21:15:27 +0000 (+0000)
Subject: exported pp function for terms
X-Git-Tag: 0.4.95@7852~1520
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=7687de06ca4add15735160a56e508c65f7c31fbc;p=helm.git

exported pp function for terms
---

diff --git a/matita/library/legacy/coq.ma b/matita/library/legacy/coq.ma
index d3c74fe21..76da7d898 100644
--- a/matita/library/legacy/coq.ma
+++ b/matita/library/legacy/coq.ma
@@ -56,3 +56,7 @@ interpretation "Coq's real 'greater than'" 'gt x y = (cic:/Coq/Reals/Rdefinition
 interpretation "Coq's leibnitz's equality" 'eq x y = (cic:/Coq/Init/Logic/eq.ind#xpointer(1/1) _ x y).
 interpretation "Coq's not equal to (leibnitz)" 'neq x y = (cic:/Coq/Init/Logic/not.con (cic:/Coq/Init/Logic/eq.ind#xpointer(1/1) _ x y)).
 
+interpretation "Coq's natural 'not less or equal than'"
+ 'nleq x y = (cic:/Coq/Init/Logic/not.con 
+               (cic:/Coq/Init/Peano/le.ind#xpointer(1/1) x y)).
+