]> matita.cs.unibo.it Git - helm.git/commitdiff
exported pp function for terms
authorEnrico Tassi <enrico.tassi@inria.fr>
Wed, 12 Apr 2006 21:15:27 +0000 (21:15 +0000)
committerEnrico Tassi <enrico.tassi@inria.fr>
Wed, 12 Apr 2006 21:15:27 +0000 (21:15 +0000)
helm/software/matita/library/legacy/coq.ma

index d3c74fe21e88a02b6ab4e502fcf79c669af0bc19..76da7d8984134a87d4fa1bfea5a440e4b688746d 100644 (file)
@@ -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)).
+