X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2Ftests%2Fchange.ma;h=4e26d4439610643ff8781e62b2f3231a7531c721;hb=2b0e0897ce58921e06793ad49ea1111e3b7b915b;hp=2c5daf0d2f459285ec9f003d74083487f83215b3;hpb=650e3b3c9ff0b9cafb76a0edf8139a53446937ba;p=helm.git diff --git a/helm/matita/tests/change.ma b/helm/matita/tests/change.ma index 2c5daf0d2..4e26d4439 100644 --- a/helm/matita/tests/change.ma +++ b/helm/matita/tests/change.ma @@ -28,3 +28,13 @@ change in \vdash (? ? % ?) with 5. rewrite < H in \vdash (? ? % ?). reflexivity. qed. + +(* tests changing a term under a binder *) +alias id "True" = "cic:/Coq/Init/Logic/True.ind#xpointer(1/1)". +theorem t: (\forall x:nat. x=x) \to True. + intro H. + change in match x in H : \forall _.% with 0+x. + change in H: \forall _.(? ? ? (? % ?)) with 0. + constructor 1. +qed. +