X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Flib%2Fpts_dummy%2FCC2FO_K.ma;h=0983db3baafb6089160a48b6c11914172160ad58;hb=1aca50505c3ce6c76dd7d20d00e358707caffd4a;hp=752ed00c09e009851c1212f1545c50536bc0a9a1;hpb=46e87acb755894f9234191d675eeb5db4f5b930b;p=helm.git diff --git a/matita/matita/lib/pts_dummy/CC2FO_K.ma b/matita/matita/lib/pts_dummy/CC2FO_K.ma index 752ed00c0..0983db3ba 100644 --- a/matita/matita/lib/pts_dummy/CC2FO_K.ma +++ b/matita/matita/lib/pts_dummy/CC2FO_K.ma @@ -12,8 +12,8 @@ (* *) (**************************************************************************) -include "degree.ma". - +include "pts_dummy/degree.ma". +(* (* TO BE PUT ELSEWERE *) lemma cons_append_assoc: ∀A,a. ∀l1,l2:list A. (a::l1) @ l2 = a :: (l1 @ l2). // qed. @@ -149,3 +149,4 @@ let rec KI G ≝ match G with ]. interpretation "CC2FO: K interpretation (context)" 'IK G = (KI G). +*)