aboutsummaryrefslogtreecommitdiffhomepage
path: root/plugins/field/LegacyField_Tactic.v
diff options
context:
space:
mode:
Diffstat (limited to 'plugins/field/LegacyField_Tactic.v')
-rw-r--r--plugins/field/LegacyField_Tactic.v10
1 files changed, 5 insertions, 5 deletions
diff --git a/plugins/field/LegacyField_Tactic.v b/plugins/field/LegacyField_Tactic.v
index 63d9bdda6..5c1f228ac 100644
--- a/plugins/field/LegacyField_Tactic.v
+++ b/plugins/field/LegacyField_Tactic.v
@@ -29,17 +29,17 @@ Ltac mem_assoc var lvar :=
end
end.
-Ltac number lvar :=
+Ltac number lvar :=
let rec number_aux lvar cpt :=
match constr:lvar with
| (@nil ?X1) => constr:(@nil (prod X1 nat))
| ?X2 :: ?X3 =>
let l2 := number_aux X3 (S cpt) in
- constr:((X2,cpt) :: l2)
+ constr:((X2,cpt) :: l2)
end
in number_aux lvar 0.
-Ltac build_varlist FT trm :=
+Ltac build_varlist FT trm :=
let rec seek_var lvar trm :=
let AT := get_component A FT
with AzeroT := get_component Azero FT
@@ -244,11 +244,11 @@ Ltac inverse_test FT :=
Ltac apply_simplif sfun :=
match goal with
- | |- (interp_ExprA ?X1 ?X2 ?X3 = interp_ExprA _ _ _) =>
+ | |- (interp_ExprA ?X1 ?X2 ?X3 = interp_ExprA _ _ _) =>
sfun X1 X2 X3
end;
match goal with
- | |- (interp_ExprA _ _ _ = interp_ExprA ?X1 ?X2 ?X3) =>
+ | |- (interp_ExprA _ _ _ = interp_ExprA ?X1 ?X2 ?X3) =>
sfun X1 X2 X3
end.