wip dual pair

math-comp · Mar 6, 2024 · a81e4d3 · a81e4d3
1 parent 5855c76
commit a81e4d3
Showing 1 changed file with 12 additions and 1 deletion.
diff --git a/theories/evt.v b/theories/evt.v
@@ -135,4 +135,15 @@ Lemma nbhsE_subproof : nbhs = nbhs_ entourage.
     nbhsE_subproof.
 HB.end.
 
-Definition dual {R : ringType} (E : lmodType R) := {scalar E}. 
+Definition dual {R : ringType} (E : lmodType R) : Type := {scalar E}.
+(* Check fun {R : ringType} (E : lmodType R) => dual E : ringType. *)
+
+
+HB.mixin Record hasDual (R : ringType) (E' : lmodType R) E of GRing.Lmodule R E :=  {
+ dual_pair : E -> E' -> R;
+ dual_pair_rlinear : forall x, scalar (dual_pair x);
+ dual_pair_llinear : forall x, scalar (dual_pair^~ x);
+ ipair : injective ( fun x =>  dual_pair^~ x)
+
+}.   
+