diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2015-11-02 12:26:53 +0100 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2015-12-02 18:34:11 +0100 |
commit | 9205d8dc7b9e97b6c2f0815fddc5673c21d11089 (patch) | |
tree | cdb63debac7a78b66849ab8f747c5c7214bb1a7a /test-suite/success/polymorphism.v | |
parent | 2374a23fb7ebfa547eb16ce2ab8dc9efb2a3f855 (diff) |
Changing syntax "$(tactic)$" into "ltac:(tactic)", as discussed in WG.
Diffstat (limited to 'test-suite/success/polymorphism.v')
-rw-r--r-- | test-suite/success/polymorphism.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test-suite/success/polymorphism.v b/test-suite/success/polymorphism.v index d6bbfe29a..878875bd9 100644 --- a/test-suite/success/polymorphism.v +++ b/test-suite/success/polymorphism.v @@ -242,7 +242,7 @@ Fail Check (Prop : Set). Fail Check (Set : Set). Check (Set : Type). Check (Prop : Type). -Definition setType := $(let t := type of Set in exact t)$. +Definition setType := ltac:(let t := type of Set in exact t). Definition foo (A : Prop) := A. @@ -303,7 +303,7 @@ Set Printing Universes. Axiom admit : forall A, A. Record R := {O : Type}. -Definition RL (x : R@{i}) : $(let u := constr:(Type@{i}:Type@{j}) in exact (R@{j}) )$ := {|O := @O x|}. +Definition RL (x : R@{i}) : ltac:(let u := constr:(Type@{i}:Type@{j}) in exact (R@{j}) ) := {|O := @O x|}. Definition RLRL : forall x : R, RL x = RL (RL x) := fun x => eq_refl. Definition RLRL' : forall x : R, RL x = RL (RL x). intros. apply eq_refl. |